Agregace sad pro porovnání jejich rozdílů
Abychom mohli porovnat dvě konkrétní sady a typy LEGO dílků, ze kterých se skládají, budeme muset data agregovat do samostatných témat. Navíc, jak jsme viděli ve videu, přidáme sloupec, který nám ukáže podíly jednotlivých dílků v každé sadě – nestačí nám totiž jen absolutní počty.
Tabulka inventory_parts_themes je pro tebe předem připravena.
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"))
Toto cvičení je součástí kurzu
Joining Data with dplyr
Pokyny k cvičení
- Přidej filtr pro téma
"Batman"a vytvoř tak objektbatman_colors. - Přidej do
batman_colorssloupecfraction, který zobrazí celkový počet vydělený součtem všech celkových počtů. - Zopakuj stejné kroky pro filtrování a agregaci dat sady
"Star Wars"a vytvoř objektstar_wars_colors. - Přidej do
star_wars_colorssloupecfraction, který zobrazí podíl z celkového počtu.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
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 %>%
___