汇总数据
目前，数据仍是"每人每题一行"的格式。为了绘图，我们需要将其转换为"每题一行"，并包含该题的汇总信息。
本练习是课程的一部分
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