Agregando cada tema

Antes, você combinou tabelas para comparar temas. Antes de fazer essa comparação, é importante agregar os dados para saber mais sobre as peças que fazem parte de cada tema, assim como as cores dessas peças.

A tabela que você criou anteriormente já foi pré-carregada como inventory_sets_themes. Ela foi filtrada para cada tema, e os objetos foram salvos como batman e 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")