Mengagregasi set untuk melihat perbedaannya
Untuk membandingkan dua set secara individual, serta jenis keping LEGO yang membentuknya, kita perlu mengagregasikan data ke dalam tema yang terpisah. Selain itu, seperti yang Anda lihat di video, kita akan menambahkan sebuah kolom agar kita bisa memahami proporsi dari keping tertentu yang menjadi bagian dari tiap set, alih-alih hanya melihat jumlah kepingnya saja.
Tabel inventory_parts_themes telah dimuat sebelumnya untuk Anda.
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"))
Latihan ini adalah bagian dari kursus
Menggabungkan Data dengan dplyr
Petunjuk latihan
- Tambahkan filter untuk tema
"Batman"guna membuat objekbatman_colors. - Tambahkan kolom
fractionkebatman_colorsyang menampilkan total dibagi jumlah total. - Ulangi langkah-langkah untuk memfilter dan mengagregasikan data set
"Star Wars"guna membuat objekstar_wars_colors. - Tambahkan kolom
fractionkestar_wars_colorsuntuk menampilkan proporsi dari total.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
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 %>%
___