文章来源：https://mp.weixin.qq.com/s?__biz=MzIwMDIwNTIyNQ==&mid=2247487424&idx=1&sn=63341e1d46df398466625b4d3de0dc1b&chksm=9681f906a1f67010af52cba35a1bf91454d35712192ce6d2ac46de7aa3a32ce9576fbdd4057b&token=1341954697&lang=zh_CN#rd
1.初识管道函数%>%
管道函数%>%来自于magrittr包，这是一个在R语言中使用非常频繁的函数，很多比较成熟的项目扩展包（如dplyr、rvest、leaflet等都实现了默认调用）都已经实现了管道操作函数的内置, %>%也支持Base R 函数。%>%的用法如下：
看得出来，%>%是将左边的对象传递给右边的函数，具体用法：
x %>% f等同于 f(x)；
x %>% f(y)等同于 f(x,y)；
y %>% f(x,.)等同于 f(x,y);
z %>% f(x,y,arg=.)等同于 f(x,y,arg=z)
使用管道的好处是：
（1）避免使用过多的中间变量；
（2）程序可读性大大增强
2.一些简单小例子
library(magrittr)
2.1基本用法
例子1
生成一个向量x,对x取对数，计算取对数后的迭代滞后差分,然后计算指数函数，最后把结果四舍五入。在不用%>%操作的时候可以这样写：
x <- c(0.109, 0.359, 0.63, 0.996, 0.515, 0.142, 0.017, 0.829, 0.907)
round(exp(diff(log(x))), 1)
使用管道后，代码更容易读懂：
x %>% log() %>%
diff() %>%
exp() %>%
round(1)
例子2
iris %>% head
iris %>% head(10)
2.2使用点占位符
管道默认将输出传给下一个函数的第1个参数，若函数的第1个参数不是接受数据，需要手动放置"."占位符。
例子1
iris %>% plot(Sepal.Width~Petal.Width, data = .)
例子2
iris %>%
subset(Sepal.Length > 5) %>%
aggregate(. ~ Species, ., mean)#挑选出
#Sepal.Length > 5的变量，对其进行汇总：按照Species分类然后算出均数
例子3
sample(1:10) %>% paste0(LETTERS[.])
2.3管道中使用函数
例子1
iris %>%
{
size <- sample(1:10, size = 1)
rbind(head(., size), tail(., size))
}
例子2
iris %>%
{
my_data <- .
size <- sample(1:10, size = 1)
rbind(head(my_data, size), tail(my_data, size))
}
3.辅助函数
可用 ?extract 查阅
如extract函数等价于 [，用于索引数据框中的列:
iiris %>% extract(,1:4) %>% head(5) #等价于
iris %>% `[`(1:4) %>% head(5) #和
iris %>% .[,1:4] %>% head(5)
4.其他的管道操作函数
其他的管道操作函数还包括：%<>%，%$%，%T>%，感兴趣的伙伴可以自行学习。
参考资料：
- https://cran.r-project.org/web/packages/magrittr/magrittr.pdf
- https://www.datacamp.com/community/tutorials/pipe-r-tutorial