Meringkas data
Saat ini, data kita masih dalam format satu baris per orang per pertanyaan. Namun, agar dapat dibuat grafik, kita perlu mengubahnya sehingga setiap baris mewakili satu pertanyaan dengan informasi ringkasan tentang respons terhadap pertanyaan tersebut.
Latihan ini adalah bagian dari kursus
Data Kategorikal di Tidyverse
Petunjuk latihan
- Ringkas himpunan data menjadi dua kolom: pertanyaan (yaitu
response_var), dan kolom baru,perc_rude, yaitu nilai rata-rata kolomrudeuntuk setiap pertanyaan. - Simpan sebagai
rude_behaviorslalu tampilkan himpunan data baru Anda.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
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