1 ###################R语言中apply类型问题
 2 data<-data.frame(x=c(1,2,3,4),y=c(2,3,4,5),z=c(5,6,7,8))
 3 apply(data,2,mean)##apply针对数据框
 4 lapply(data,mean)##lapply针对list，当然对dataframe也有效
 5 data1<-list(a=1:10,b=exp(-3:3),c=c(FALSE,FALSE,FALSE))
 6 lapply(data1，mean)##list中每个变量的长度可以是不同的
 7 sapply(data1,mean,simplify=T)
 8 #另外，还有一个vapply，里面有一个参数FUN.VALUE，对返回的结果进行检验，如果不符合要求，则会报错
 9 #tapply
10 data2<-data.frame(x=c("F","F","M","M","F"),y=c(172,176,166,188,190,163))
11 tapply(data2$y,data2$x,mean,simplify=T)##分组统计的功能,simplify为TRUE，则以列表的形式返回,FALSE则直接返回数值
12 #aggregate函数,,,分类汇总
13 attach（mtcars）
14 aggregate(mtcars,by=list(cyl,gear),FUN=mean)