Dikotomisasi variabel
Sekarang setelah kita merapikan nama pertanyaan, mari kita kerjakan variabel respons. Dalam analisis asli, mereka melihat persentase orang yang menilai sebuah perilaku agak atau sangat tidak sopan. Untuk mereplikasinya, kita perlu mengubah variabel rude dari respons saat ini menjadi variabel yang menggabungkan jawaban agak tidak sopan dan sangat tidak sopan.
Latihan ini merupakan bagian dari kursus
Data Kategorikal di Tidyverse
Instruksi latihan
- Hapus baris dengan NA di kolom value
- Buat variabel baru, rude, yang bernilai 0 jika kolom value adalah "No, not rude at all" atau "No, not at all rude" dan 1 selain itu.
Latihan interaktif langsung praktik
Cobalah latihan ini dengan melengkapi kode contoh ini.
dichotimized_data <- 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
___ %>%
# Dichotomize the value variable to make a new variable, rude
mutate(rude = if_else(value ___ c('No, not rude at all', 'No, not at all rude'), ___, ___))