select-all-qualtrics.R

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

qualtrics_data_raw <- read_excel("data/qualtrics-data.xlsx",
           skip = 1) %>% 
  clean_names()

qualtrics_tidy <- qualtrics_data_raw %>% 
  separate_rows(select_all_the_things_youve_done_in_the_past_24hours_selected_choice,
                sep = ",")

qualtrics_tidy %>% 
  count(select_all_the_things_youve_done_in_the_past_24hours_selected_choice) %>% 
  ggplot(aes(x = n,
             y = select_all_the_things_youve_done_in_the_past_24hours_selected_choice)) +
  geom_col()