Die Differenz visualisieren: Batman und Star Wars

In der letzten Übung hast du colors_joined erstellt. Jetzt erstellst du ein Balkendiagramm mit einem Balken für jede Farbe (name), das die Differenz der Anteile zeigt.

Da Faktoren und Visualisierung nicht zum Umfang dieses Kurses gehören, haben wir etwas Vorarbeit für dich erledigt: Hier ist der Code, der die Tabelle colors_joined erstellt hat, die im Video verwendet wird.

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

Diese Übung ist Teil des Kurses

<Kurs>Daten mit dplyr verknüpfen</Kurs>

Kurs ansehen

Übungsanweisungen

Erstelle ein Balkendiagramm mit der Tabelle colors_joined, um die auffälligsten Farben in den Themes Batman und Star Wars darzustellen, und färbe die Balken nach ihrem name ein.

Interaktive praktische Übung

Versuche dich an dieser Übung, indem du diesen Beispielcode vervollständigst.

# 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 bearbeiten und ausführen