Het verschil visualiseren: Batman en Star Wars

In de vorige oefening maakte je colors_joined. Nu maak je een staafdiagram met één staaf per kleur (name), dat het verschil in fracties laat zien.

Omdat factoren en visualisatie buiten de scope van deze cursus vallen, hebben we alvast wat verwerking voor je gedaan: hieronder staat de code die de tabel colors_joined heeft gemaakt die in de video wordt gebruikt.

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

Deze oefening maakt deel uit van de cursus

Data samenvoegen met dplyr

Cursus bekijken

Oefeninstructies

Maak een staafdiagram met de tabel colors_joined om de meest prominente kleuren in de Batman- en Star Wars-thema's weer te geven, waarbij de staven zijn ingekleurd op basis van hun name.

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

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

Code bewerken en uitvoeren