Підсумовування даних

Зараз наші дані все ще мають формат: один рядок на людину для кожного запитання. Але щоб побудувати графік, нам потрібно змінити це так, щоб кожен рядок відповідав одному запитанню з підсумковою інформацією про відповіді на нього.

Ця вправа є частиною курсу

Категоріальні дані в 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

Редагувати та запускати код