Memvisualisasikan perbedaan: Batman dan Star Wars

Pada latihan sebelumnya, Anda membuat colors_joined. Sekarang Anda akan membuat diagram batang dengan satu batang untuk setiap warna (name), yang menampilkan perbedaan fraksi.

Karena faktor dan visualisasi berada di luar cakupan kursus ini, kami telah melakukan beberapa pemrosesan untuk Anda: berikut adalah kode yang membuat tabel colors_joined yang akan digunakan dalam video.

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

Latihan ini adalah bagian dari kursus

Menggabungkan Data dengan dplyr

Lihat Kursus

Petunjuk latihan

Buat diagram batang menggunakan tabel colors_joined untuk menampilkan warna yang paling menonjol dalam tema Batman dan Star Wars, dengan warna batang diatur berdasarkan name.

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

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

Edit dan Jalankan Kode