Visualiser la différence : Batman et Star Wars

Dans le dernier exercice, vous avez créé colors_joined. Vous allez maintenant produire un diagramme à barres avec une barre par couleur (name), qui montre la différence entre les proportions.

Comme les facteurs et la visualisation dépassent la portée de ce cours, nous avons fait un peu de traitement pour vous : voici le code qui a créé la table colors_joined qui sera utilisée dans la vidéo.

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))

Cette activité fait partie du cours

Assembler des données avec dplyr

Voir le cours

Instructions de l’exercice

Créez un diagramme à barres à partir de la table colors_joined pour afficher les couleurs les plus présentes dans les thèmes Batman et Star Wars, avec des barres colorées selon leur name.

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

# 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")

Modifier et exécuter le code