R语言中管道符命令%>%的应用

 

001、管道符的应用需要加载dplyr包

dat <- read.table("a.txt")
dat                                                          ## 测试数据
library(dplyr)                                               ## 加载dplyr包
apply(dat[,1:2], 1, mean) %>% cbind(dat[,3:5])      ## 计算前两列的每一行的平均值，然后和3-5列合并
apply(dat[,1:2], 1, mean) %>% cbind(dat[,3:5]) %>% dim()   ## 增加管道符，统计维度
apply(dat[,1:2], 1, mean) %>% cbind(dat[,3:5]) %>% apply(1, mean) ## 计算前两列的每一行的平均值，然后和3-5列合并，计算所有列每一行的平均值

 

 

利用循环计算每一行的总和及平均值：

dat <- read.table("a.txt")
dat
result <- data.frame()
for (i in 1:nrow(dat)) {
  sum = 0
  for (j in 1:ncol(dat)) {
  sum = sum + dat[i,j]
  }
  result <- rbind(result, c(sum, sum/ncol(dat)))
}
colnames(result) <- c("sum", "mean")
result

 

 

利用循环计算每一列的总和及平均值：

dat <- read.table("a.txt")
dat
result <- data.frame()

for (i in 1:ncol(dat)) {
  sum = 0
  for (j in 1:nrow(dat)) {
    sum = sum + dat[j,i]
  }
  result <- rbind(result, c(sum, sum/nrow(dat)))
}
names(result) <- c("sum", "mean")
result
apply(dat, 2, sum)               ## apply验证
apply(dat, 2, mean)