Riepilogare i dati
Al momento, i dati sono ancora nel formato di una riga per persona per domanda. Per poterli visualizzare in un grafico, vogliamo invece che ogni riga rappresenti una domanda con le informazioni riassuntive sulle risposte a quella domanda.
Questo esercizio fa parte del corso
Dati categoriali nel Tidyverse
Istruzioni dell'esercizio
- Riepiloga l’insieme di dati in due colonne: la domanda (cioè
response_var) e una nuova colonna,perc_rude, la media della colonnarudeper ogni domanda. - Salvalo come
rude_behaviorse poi visualizza il nuovo insieme di dati.
Esercizio pratico interattivo
Prova a risolvere questo esercizio completando il codice di esempio.
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