摘要資料
目前資料仍是每個人每個問題一列。為了作圖，我們要把它轉換成每列代表一個問題，並包含該問題回應的摘要資訊。
本練習屬於課程
Tidyverse 的類別資料
練習說明
- 將資料集摘要成兩個欄位：問題（也就是
response_var），以及新欄位perc_rude，其為每個問題的rude欄位平均值。 - 將結果存為
rude_behaviors，然後檢視你新的資料集。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
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