Agregarea seturilor pentru a analiza diferențele dintre ele

Pentru a compara două seturi individuale și tipurile de piese LEGO din care sunt alcătuite, va trebui să agregăm datele pe teme separate. În plus, după cum am văzut în videoclip, vom adăuga o coloană care să ne arate fracțiile pieselor specifice din fiecare set, nu doar numărul acestora.

Tabelul inventory_parts_themes a fost preîncărcat pentru tine.

inventory_parts_themes <- inventories %>%
  inner_join(inventory_parts, by = c("id" = "inventory_id")) %>%
  arrange(desc(quantity)) %>%
  select(-id, -version) %>%
  inner_join(sets, by = "set_num") %>%
  inner_join(themes, by = c("theme_id" = "id"), suffix = c("_set", "_theme"))

Acest exercițiu face parte din cursul

Joining Data with dplyr

Vezi cursul

Instrucțiuni pentru exercițiu

Adaugă un filtru pentru tema "Batman" pentru a crea obiectul batman_colors.
Adaugă o coloană fraction în batman_colors care să afișeze totalul împărțit la suma totalului.
Repetă pașii pentru a filtra și agrega datele setului "Star Wars" și a crea obiectul star_wars_colors.
Adaugă o coloană fraction în star_wars_colors pentru a afișa fracția din total.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

batman_colors <- inventory_parts_themes %>%
  # Filter the inventory_parts_themes table for the Batman theme
  filter(name_theme == ___) %>%
  group_by(color_id) %>%
  summarize(total = sum(quantity)) %>%
  # Add a fraction column of the total divided by the sum of the total 
  mutate(___)

# Filter and aggregate the Star Wars set data; add a fraction column
star_wars_colors <- inventory_parts_themes %>%
  ___

Editează și rulează codul