Mine Cetinkaya-Rundel mine-cetinkaya-rundel

Another variable that needs some cleaning up is membership_status. Currently it should either be NA or contain some text that says "Select ... to register for this group". Recode this variable to say "Closed" if the current value is NA or "Open" otherwise. Save the resulting dataset with this new variables as clubs, i.e., overwrite the original data frame. Then, display the first 10 rows of the dataset, moving membership_status to the beginning of the dataset to make sure it appears in the output in your rendered document.

I'll help you clean up the membership_status variable. Let's break this down into steps:

# Recode membership_status to "Closed" if NA, "Open" otherwise
clubs$membership_status <- ifelse(is.na(clubs$membership_status), "Closed", "Open")

# Reorder columns to put membership_status first
clubs &lt;- clubs[, c("membership_status", setdiff(names(clubs), "membership_status"))]

	# Remake of plot from https://www.kdnuggets.com/data-science-salaries-job-market-analysis-2024-2025

	# load packages

	library(tidyverse)
	library(scales)

	# create data frame

	ds_salaries <- tribble(

	---
	format: revealjs
	execute:
	echo: true
	engine: knitr
	---

	# Option 1: `code-line-numbers`

	## RStudio Projects

	---
	format:
	revealjs:
	highlight-style: a11y-dark
	execute:
	echo: true
	---

	```{r}
	#\| code-line-numbers: "\|1\|2"

	# Find on RStudio Cloud: https://bit.ly/tidypumpkin

	# inspirations -----------------------------------------------------------------

	# https://twitter.com/alyssastweeting/status/1450270826347913220
	# https://twitter.com/Emma_McHuge/status/1450434288319537162

	# load packages ----------------------------------------------------------------

	library(tidyverse)

	library(tidyverse)

	lms_export <- tribble(
	~Name, ~`Student ID`, ~`HW 01 [Total Pts: 100 Score] \|so many more characters`, ~`and many more columns`,
	"Dorianne Grey", 12345, NA, NA,
	"Krista Rose", 67890, NA, NA
	)

	hw_scores <- tribble(
	~student_id, ~score,

	body {
	font-size: 16px;
	}
	.topicsList .topic {
	font-size: 18px;
	}
	p.caption {
	font-size: 0.6em;
	}

	# Load packages ----------------------------------------------------------------

	library(tidytext)
	library(friends)
	library(tidyverse)

	# The six friends --------------------------------------------------------------

	six_friends <- c("Phoebe Buffay", "Chandler Bing", "Rachel Green", "Monica Geller", "Joey Tribbiani", "Ross Geller")

	library(friends) # devtools::install_github("EmilHvitfeldt/friends")
	library(tidyverse)

	you_guys <- friends %>%
	mutate(text = tolower(text)) %>%
	filter(str_detect(text, "you guys")) %>%
	count(speaker, sort = TRUE)

	you_guys
	#> # A tibble: 70 x 2

	---
	output: learnr::tutorial
	runtime: shiny_prerendered
	---

	```{r setup, include=FALSE}
	library(learnr)
	```

	## Exercise with Hint