往期回顾：

R for data science之purrr包(上）

kaggle案例：数据科学社区调查报告（附学习视频）

kaggle案例：员工离职预测（附学习视频）

Kaggle案例~R可视化分析美国枪击案（附数据集和代码）

head_while() 找到所有满足头部匹配的值

 tail_while() 找到所有满足尾部匹配的值

mtcars[1,]mtcars[1,] %>% head_while(~. >5)

mtcars[1,] %>% head_while(~. >15)

mtcars[,1]mtcars[,1] %>% tail_while(~. >25)

mtcars[,1] %>% tail_while(~. >21)

fun <- function(x) x >= 1head_while(5:-5, fun)

head_while(-1:-5, fun)

x <- sample(10)xx %>% head_while(~. >5)

x %>% tail_while(~. >5)

transpose() 将列表对变成列表/将一个列表对成一个清单

mtcars %>% transpose()mtcars %>% transpose() %>%simplify_all()

x <- list(list(a=1,b=2),list(a=3,b=4))xx %>% transpose()

x %>% transpose() %>%simplify_all()

ll <- list(  list(x = 1, y = "one"),  list(z = "deux", x = 2))ll %>% transpose()

ll %>% transpose() %>%simplify_all()

keep()                     使用函数保留元素

discard()                  使用函数放弃元素  保存于放弃是对立的

head(mtcars)mtcars[1:5,] %>% keep(function(x) mean(x) > 10)

mtcars[1:5,] %>% keep(function(x) mean(x) < 10)

mtcars[1:5,] %>% discard(function(x) mean(x) < 10)

mtcars[1:5,] %>% discard(function(x) mean(x) > 10)

rep(3, 2) %>%                # rep(a,time=)  map(rnorm, n=5) %>%          #每行个数   keep(function(x) mean(x) > 2)

rep(3, 2) %>%                # rep(a,time=)  map(rnorm, n=5) %>%          #每行个数   discard(function(x) mean(x) >4)

safely     #函数包装功能，不通过打印输出消息，警告和错误

# safely()   返回一个带有组件结果和错误的列表

# quietly()  返回一个包含组件结果/输出/警告和消息

# possibly() 包装函数在发生错误时使用默认值（否则）

fun_log <- safely(log)        #log        str(fun_log(10))

list("a",100,9) %>% map(fun_log)

list(99,100,9) %>% map(fun_log) %>% transpose()

fun_log(mtcars[1,])

mean_fun <-quietly(mean)      #meanmean_fun(c(1,3)) %>% transpose()

mean_fun(mtcars[,1])

mean(mtcars[,1])

x <- list(1, 10, "a")         #logx %>% map_dbl(possibly(log, NA_real_))  # otherwise

walk 无形的返回第一个参数，经常与管道函数并用

# walk()# pwalk()# walk2()x <- list(1, "a", 3)x %>% walk(print)

往期精彩内容整理合集：

R语言中文社区历史文章整理（作者篇）

R语言中文社区历史文章整理（类型篇）

☟☟☟ 猛戳阅读原文，即刻加入课程。