map

map関数を使ってグループ単位に処理を適用する

map関数についてはTokyoRの@kilometerさんの記事がよくわかる。https://qiita.com/kilometer/items/7184904765fbf0f33f04

ここではハマった内容を残しておく。

• 間違い（動かない）

iris |> group_by(Species) |> nest() |> mutate(result = map(.x = data, .f=~shapiro.test(Sepal.Length)))
Error in `mutate()`:
ℹ In argument: `result = map(.x = data, .f = ~shapiro.test(Sepal.Length))`.
ℹ In group 1: `Species = setosa`.
Caused by error in `map()`:
ℹ In index: 1.
Caused by error in `stopifnot()`:
!  オブジェクト 'Sepal.Length' がありません 

• 正しい（r-wakalangでKDさんに教わった）

iris |> group_by(Species) |> nest() |> mutate(result = map(.x = data, .f=~shapiro.test(.x$Sepal.Length)))

map()の中で指定する関数に与える変数の指定方法に注意。

同じ目的を達成するには別の方法がある（by KD）

• 基本

iris |> 
 summarize(result = list(shapiro.test(Sepal.Length)), .by = Species) |> 
 unpack(result)

• 解析結果をきれいな data.frame として持ちたいとき

iris |> 
 summarize(result = broom::tidy(shapiro.test(Sepal.Length)), .by = Species) |> 
 unpack(result)

• 解析結果を list として持ちたいとき

iris |> 
 summarize(result = list(shapiro.test(Sepal.Length)), .by = Species) |> 
 deframe()