データ（tidy data）

元データであるtidy dataは データ分析勉強会 の第3.5回で用いた以下のチュートリアルデータです。このデータはゲーム『ハリー・ポッター 魔法同盟』に出てくる魔法薬のレシピをtidy data形式でまとめたものです。なお、一部を省略して表示しています。
　

recipe

応用例

元データには材料の必要量（quantity）のデータもありますので、バスケットの中身を

\[材料名 \times 必要量\]

の形にしてみます。
　

recipe

　
dplyrパッケージはフィーチャー間（列間）のベクトル処理は得意ですが、インスタンス単位（行単位）での処理はあまり得意ではありません（分かりにくいです）。そこで、材料（material）と必要量（quantity）をインスタンス単位で結合処理するためにpurrrパッケージを用います。
　

recipe %>% 
  with(., purrr::map2_chr(.x = material, .y = quantity,
                          .f = ~ paste(.x, .y, collapse = "", sep = " x")))

##  [1] "ビタールート x1"         "リーエムの血 x1"        
##  [3] "ユキノハナ x1"           "グレニアンの毛 x1"      
##  [5] "ビタールート x3"         "ユキノハナ x4"          
##  [7] "リーエムの血 x1"         "アブラクサンの毛 x1"    
##  [9] "カノコソウの根 x2"       "催眠豆 x1"              
## [11] "バタースコッチ x1"       "ヤドカリの殻 x1"        
## [13] "飛び跳ね毒キノコ x2"     "カエルの脳みそ x1"      
## [15] "ルーンスプールの卵 x1"   "ドラゴンの爪の粉末 x1"  
## [17] "ハニーウォーター x1"     "クマツヅラの抽出液 x1"  
## [19] "トモシリソウ x1"         "ラビッジ x2"            
## [21] "ハニーウォーター x1"     "クマツヅラの抽出液 x1"  
## [23] "トモシリソウ x1"         "オオバナノコギリソウ x2"
## [25] "ニガヨモギ x1"           "腫れ草の膿 x3"          
## [27] "ハナハッカ x2"           "ドラゴンの肝 x1"        
## [29] "ビタールート x4"         "ユキノハナ x6"          
## [31] "リーエムの血 x2"         "ユニコーンのたてがみ x1"
## [33] "根生姜 x4"               "イモリの脾臓 x3"        
## [35] "タマオシコガネの粉末 x1" "アルマジロの胆汁 x1"

purrr::map2_chr関数は上記のように二つのベクトル変数に対して任意の関数（ここではpaste関数）を適用し、処理結果を文字型ベクトルで返す関数です。
　

recipe %>% 
  dplyr::mutate(recipe = purrr::map2_chr(.x = material, .y = quantity,
                                         .f = ~ paste(.x, .y, collapse = "", sep = " x"))) %>% 
  dplyr::group_by(portion) %>% 
  dplyr::summarise(basket = paste(recipe, collapse = ", "))

Enjoy!