Rではじめるデータサイエンス

17.5

 マップ関数

287

col_summary <- function(df, fun) {

out <- vector("double", length(df))

for (i in seq_along(df)) {

out[i] <- fun(df[[i]])

}

out

}

col_summary(df, median)

#> [1] 0.237 -0.218 0.254 -0.133

col_summary(df, mean)

#> [1] 0.2026 -0.2068 0.1275 -0.0917

関数を別の関数に引き渡すというアイデアは非常に強力で、Rを関数型プログラミング言語とする

振る舞いの1 つです。このアイデアに頭をなじませるには少し時間がかかるかもしれませんが、それ

だけの価値があります。本章の残りでは、

purrr

パッケージを学びます。その関数を使えば、

for

ルー

プを使わな

くて済みます。基本Rが提供する

apply

関数ファミリー（

apply()

,

lapply()

,

tapply()

な

ど）も同じことをしますが、

purrr

の方がより一貫性があって学びやすいでしょう。

for

ループの代わりに

purrr

関数を使うと、よくあるリスト操作作業を個別操作に分割して処理で

きるようになります。

●

要素1つだけのリストの問題をどう解けるか。その問題が解ければ、リストの全要素にその解を

使えるよう

purrr

が一般化してくれる。

●

複雑な問題を解く場合、それを要素ごとに分離して、徐々に進め