Визуализация различий: Бэтмен и «Звёздные войны»
В предыдущем упражнении вы создали таблицу colors_joined. Теперь вы построите столбчатую диаграмму с одним столбцом для каждого цвета (name), отображающую разницу в долях.
Поскольку работа с факторами и визуализация выходят за рамки этого курса, мы заранее подготовили часть кода: ниже приведён код, который создаёт таблицу colors_joined, используемую в видео.
colors_joined <- batman_colors %>%
full_join(star_wars_colors, by = "color_id", suffix = c("_batman", "_star_wars")) %>%
replace_na(list(total_batman = 0, total_star_wars = 0)) %>%
inner_join(colors, by = c("color_id" = "id")) %>%
mutate(difference = fraction_batman - fraction_star_wars,
total = total_batman + total_star_wars) %>%
filter(total >= 200) %>%
mutate(name = fct_reorder(name, difference))
Это упражнение является частью курса
Объединение данных с dplyr
Инструкции к упражнению
- Постройте столбчатую диаграмму на основе таблицы
colors_joined, чтобы отобразить наиболее распространённые цвета в тематических наборах Бэтмена и «Звёздных войн», окрасив столбцы в соответствии с их значениемname.
Интерактивное практическое упражнение
Попробуйте выполнить это упражнение, дополнив этот пример кода.
# Create a bar plot using colors_joined and the name and difference columns
ggplot(___, aes(___, ___, fill = ___)) +
geom_col() +
coord_flip() +
scale_fill_manual(values = color_palette, guide = "none") +
labs(y = "Difference: Batman - Star Wars")