cleaning lecture improvement

[carriewright11]

• [ ] Slide 49 should be be changing to uppercase Dioxin
• [ ] maybe remove regex from the final case_when example but could mention on a diff slide
• [ ] maybe add back the example of sometimes you want NA with case_when
• [ ] Maybe simplify the recoding?

[carriewright11]

• [ ] could add extra slides with fancier examples and explaining when case_when is not needed:

library(tidyverse)

ces <- read_csv(file = "https://daseh.org/data/CalEnviroScreen_data.csv")

more complicated case_when example with 2 columns:

ces %>% mutate(new_col_case_when = case_when(Longitude < -121 & Latitude > 37.8 ~ "Distract A", TRUE ~ "District B")) %>% pull(new_col_case_when)

don't need case_when if just doing a calcuation with other variables:

ces %>% mutate(num_col_mutate = Longitude * Latitude ) %>% pull(num_col_mutate)

more complicated example - will get NA values (on purpose - no TRUE statement) of calculation for cases where the condition is not met:

ces %>% mutate(num_new = case_when(Longitude < -121 & Latitude > 37.8 ~ Longitude * Latitude)) %>% pull(num_new)

[carriewright11]

could also add an extra slide about n_complete_row