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

Les verbes semi_join et anti_join

Create Your Free Account