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

Assembler des données avec dplyr

Afficher le cours

Instructions

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 cet exemple de code.

# 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