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

Daten mit dplyr verknüpfen

Kurs anzeigen

Anleitung zur Übung

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 Übung

Vervollständige den Beispielcode, um diese Übung erfolgreich abzuschließen.

# 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