데이터 요약하기
현재 데이터는 한 사람당 한 질문씩, 즉 질문별 응답이 각 행에 있어요. 그래프를 그리려면 이를 바꿔서 각 행이 하나의 질문이 되도록 하고, 그 질문에 대한 응답을 요약한 정보를 담아야 해요.
이 연습은 강의의 일부입니다
Tidyverse로 배우는 범주형 데이터
연습 안내
- 데이터셋을 두 개의 열로 요약하세요. 질문(
response_var)과, 각 질문에 대해rude열의 평균을 담는 새 열perc_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