Sammanfatta data
Just nu innehåller våra data fortfarande en rad per person och fråga. För att kunna visualisera dem behöver vi omforma datamängden så att varje rad representerar en fråga med sammanfattad information om svaren.
Den här övningen är en del av kursen
Kategoriska data i Tidyverse
Övningsinstruktioner
- Sammanfatta datamängden till två kolumner: frågan (dvs.
response_var) och en ny kolumn,perc_rude, som innehåller medelvärdet av kolumnenrudeför varje fråga. - Spara resultatet som
rude_behaviorsoch visa sedan din nya datamängd.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
rude_behaviors <- gathered_data %>%
mutate(response_var = str_replace(response_var, '.*rude to ', '')) %>%
mutate(response_var = str_replace(response_var, 'on a plane', '')) %>%
# Remove rows that are NA in the value column
filter(!is.na(value)) %>%
mutate(rude = if_else(value %in% c("No, not rude at all", "No, not at all rude"), 0, 1)) %>%
# Group by response_var
___ %>%
# Create perc_rude, the percent considering each behavior rude
___
rude_behaviors