jiangbeilu 发表于 2016-7-31 21:12 
lapply(datalist,function(x) x$x3/sum(x$x3))
x$x3这是一个整体
x2<-c(1,3.5,2.8,9,8.1,10,11,7.4,6.2,4.8,1.2)
> x3<-c(0.12,0.11,0.02,0.31,0.22,0.17,0.43,0.35,0.61,0.44, 0.29)
> x<-data.frame(x1,x2,x3)
> data.list<-list()
> for(i in 6:10)
+ {
+ data.list[[i-5]]<- filter(x,x2>=i)
+ }
> lapply(data.list,function(x),x$x3/sum(x$x3))
Error: unexpected ',' in "lapply(data.list,function(x),"