Візуалізація різниці: Batman і Star Wars

У попередній вправі ви створили 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, щоб показати найпомітніші кольори в темах Batman і Star Wars, зафарбувавши стовпчики відповідно до їхнього 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")

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