我想从每一列中选择不同的子集,并进行平均值计算,如下所示:
per <- data.frame(Apocal=c(10,1,2,3,4,0,6),Aporos=c(0,2,1,3,0,5,6),Euker=c(0,3,5,7,0,0,0), fecha=c(1,1,2,2,2,3,3))
temp <-with(per, per[Apocal>0,])
require(plyr)
temp <- ddply(temp, .(fecha), summarise, Apocal = mean(Apocal))
temp <-with(per, per[Aporos>0,])
temp <- ddply(temp, .(fecha), summarise, Aporos = mean(Aporos))
...
对于每一列,除了"fecha"列之外,是否有任何自动化的方法可以通过函数或其他方式来完成这个操作?
谢谢!
0
。 - flodel