Visualiser les différences : Batman et Star Wars

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

Comme les facteurs et la visualisation dépassent le cadre de ce cours, nous avons préparé une partie du traitement : voici le code qui a créé la table colors_joined 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))

Cet exercice fait partie du cours

<cours>Assembler des données avec dplyr</cours>

Voir le cours

Instructions de l’exercice

Créez un diagramme en 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