Batman と Star Wars のLEGOパーツを比較する
前の演習で作成したテーブルには、各パーツの品番、色ID、そして Star Wars と Batman の各テーマにおける個数が入っています。ですが、他のテーブルと組み合わせることで、これらのパーツに関する追加情報も取得できます。テーマを比較する前に、結果をより解釈しやすくするため、十分な情報がそろっているか確認しましょう。前の演習で作成したテーブルは parts_joined として保存され、読み込み済みです。
parts_joined <- batman_parts %>%
full_join(star_wars_parts, by = c("part_num", "color_id"), suffix = c("_batman", "_star_wars")) %>%
replace_na(list(n_batman = 0, n_star_wars = 0))
この演習はコースの一部です
dplyr で行うデータの結合
演習の手順
parts_joinedテーブル内の Star Wars のパーツ数を降順で並べ替きます。colorsテーブルをparts_joinedテーブルに対して inner join します。- その結果に
partsテーブルを inner join で結合します。colors由来かparts由来かが分かるように、接尾辞として"_color"と"_part"を追加します。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
parts_joined %>%
# Sort the number of star wars pieces in descending order
___ %>%
# Join the colors table to the parts_joined table
___ %>%
# Join the parts table to the previous join
___