Mengagregasi setiap tema

Sebelumnya, Anda menggabungkan tabel untuk membandingkan tema. Sebelum melakukan perbandingan ini, Anda perlu mengagregasi data untuk mempelajari lebih lanjut tentang kepingan yang menjadi bagian dari setiap tema, serta warna dari kepingan tersebut.

Tabel yang sebelumnya Anda buat telah dimuat untuk Anda sebagai inventory_sets_themes. Tabel tersebut telah difilter untuk setiap tema, dan objeknya disimpan sebagai batman dan star_wars.

inventory_sets_themes <- inventory_parts_joined %>%
  inner_join(sets, by = "set_num") %>%
  inner_join(themes, by = c("theme_id" = "id"), suffix = c("_set", "_theme"))

batman <- inventory_sets_themes %>%
  filter(name_theme == "Batman")

star_wars <- inventory_sets_themes %>%
  filter(name_theme == "Star Wars")