purrr 是一个拓展R函数式编程能力的包。在这篇文章中，介绍在purrr中几个非常实用的函数。

purrr已经集成在tidyverse中，所以如果已经安装了tidyverse的话则不需要重复安装了。

1. map 家族

1.1 map函数

library(purrr)
numbers <- list(11, 12, 13, 14)
map(numbers, sqrt)

得到的结果如下，返回一个列表

[[1]]
[1] 3.316625

[[2]]
[1] 3.464102

[[3]]
[1] 3.605551

[[4]]
[1] 3.741657

1.2 map_dbl函数

map_dbl(numbers, sqrt)

返回一个实数原子列表(atomic list)

[1] 3.316625 3.464102 3.605551 3.741657

1.3 map_if函数

map_if函数会对于list进行一个逻辑判断，如果是真则执行命令，否则不执行，保留原值。

#创造一个辅助函数，如果为偶数则返回TRUE
is_even <- function(x){
  !as.logical(x %% 2)
}
map_if(numbers, is_even, sqrt)

[[1]]
[1] 11

[[2]]
[1] 3.464102

[[3]]
[1] 13

[[4]]
[1] 3.741657

1.4 map_at函数

map_at函数是给定位置向量，然后执行命令。

map_at(numbers, c(1,3), sqrt)

[[1]]
[1] 3.316625

[[2]]
[1] 12

[[3]]
[1] 3.605551

[[4]]
[1] 14

1.5 map2函数

map_2函数可以输入2个参数，同时将两个列表映射到一个函数中。

numbers2 <- list(1, 2, 3, 4)
map2(numbers, numbers2, `+`)

[[1]]
[1] 12

[[2]]
[1] 14

[[3]]
[1] 16

[[4]]
[1] 18

或者我们也可以使用pmap()函数将任意数量的列表映射到任何函数。

x <- list(1, 10, 100)
y <- list(1, 2, 3)
z <- list(5, 50, 500)
pmap(list(x, y, z), sum)

[[1]]
[1] 7

[[2]]
[1] 62

[[3]]
[1] 603

2.debug类函数

2.1 possibly函数

possibly()函数是即使报错，也要继续执行你的循环，结合map使用可以在loop中不中断循环，当然这种功能也可以使用tryCatch函数。

possible_sqrt <- possibly(sqrt, otherwise = NA_real_)
numbers_with_error <- list(1, 2, 3, "spam", 4)
map(numbers_with_error, possible_sqrt)

[[1]]
[1] 1

[[2]]
[1] 1.414214

[[3]]
[1] 1.732051

[[4]]
[1] NA

[[5]]
[1] 2

2.2 safely函数

safely函数与possibly函数很相似，但是它会在列表中返回列表。因此元素是结果和伴随错误消息的列表。如果没有错误，则返回NULL。如果有错误，则返回错误信息。个人觉得没有possibly好用。

3. 累加操作

3.1 reduce函数

reduce(numbers, `*`)

[1] 24024

reduce函数非常常用，你可以reduce任何东西。