live-session-code_survey-monkey.R

live-session-code_survey-monkey.R

library(tidyverse)
library(readxl)
library(janitor)

survey_monkey_raw <- read_excel("data/survey-monkey-data.xlsx") %>% 
  clean_names()

survey_monkey_data <- survey_monkey_raw %>% 
  slice(-1) %>% 
  mutate(respondent_id = row_number()) %>% 
  relocate(respondent_id) %>% 
  select(-start_date)


survey_monkey_clean <- survey_monkey_data %>% 
  mutate(other = case_when(
    is.na(x8) ~ NA_character_,
    TRUE ~ "Other (WHAT'S YOUR HOBBY?)"
  ))

survey_monkey_clean %>% 
  filter(is.na(x7),
         !is.na(x8))

survey_monkey_tidy <- survey_monkey_clean %>% 
  mutate(other = case_when(
    is.na(x8) ~ NA_character_,
    TRUE ~ "Other (WHAT'S YOUR HOBBY?)"
  )) %>% 
  select(respondent_id, x8, everything()) %>% 
  pivot_longer(select_all_the_things_youve_done_in_the_past_24hours:other)

survey_monkey_tidy %>% 
  count(value)

survey_monkey_data %>% 
  pivot_longer(select_all_the_things_youve_done_in_the_past_24hours:x7) %>% 
  mutate(value = str_remove(value, "- ")) %>% 
  count(value)