各テーマの集計

これまでに、テーマ同士を比較するためにテーブルを結合しました。比較に進む前に、各テーマに含まれるパーツや、その色について把握できるよう、データを集計しておきましょう。

以前に作成したテーブルは inventory_sets_themes として読み込まれています。これは各テーマでフィルタ済みで、オブジェクトは batman と 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")

Batman と Star Wars の各パーツについて、数量で重み付けしながら、パーツ番号と色IDをカウントします。