汇总每个主题

此前，您已经合并了多张表来比较不同的主题。在开始比较之前，您需要先对数据做汇总，以了解每个主题所包含的零件，以及这些零件的颜色。

您之前创建的表已作为 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")