[Rcode]管道操作

原文地址：http://blog.csdn.net/fairewell/article/details/72878107

例子：

1. 取10000个随机数符合，符合正态分布。
2. 求这个10000个数的绝对值，同时乘以50。
3. 把结果组成一个100*100列的方阵。
4. 计算方阵中每行的均值，并四舍五入保留到整数。
5. 把结果除以7求余数，并话出余数的直方图。

法一：

# 设置随机种子
> set.seed(1)

# 开始 
> n1<-rnorm(10000)            # 第1步
> n2<-abs(n1)*50              # 第2步
> n3<-matrix(n2,ncol = 100)   # 第3步
> n4<-round(rowMeans(n3))     # 第4步
> hist(n4%%7)                 # 第5步

法二：

> set.seed(1)
> hist(round(rowMeans(matrix(abs(rnorm(10000))*50,ncol=100)))%%7)

法三：

# 设置随机种子
> set.seed(1)

# 开始
> rnorm(10000) %>%
+   abs %>% `*` (50)  %>%
+   matrix(ncol=100)  %>%
+   rowMeans %>% round %>% 
+   `%%`(7) %>% hist