主要Mark一下R程序中，分类进行数值计算的情况。

 

1.aggregate函数

有数据框case，列名分别a，b，c，d，e，f

（1）根据一列对另一列求和：根据a，对d求和

sum1 <- aggregate(case[, 4], list(case[,1]), sum, na.rm=T)  

或者

sum1 <- aggregate(case$d, list(case$a), sum, na.rm=T)  

na.rm=T，消除缺失值NA带来的影响，若na.rm=F，存在缺失NA的时候，无法求和。同理对均值，将函数中的sum换成mean。

（2）根据多列对一列求和：根据a、b，对d求和

sum2 <- aggregate(case$d, case[,c("a", "b")], sum)

（3）根据一列对多列求和：根据a，对d、e求和

sum3 <- aggregate(case[,c(4,5)], list(case$a), sum)

2. dplyr包的group_by函数

根据一列对多列求和：根据a对d、e求和

data <- group_by(case, a)
sum3 <- summarise(data, d1 = sum(d, na.rm = TRUE), e1 = sum(e, na.rm = TRUE))

 

 

第一次写，免得我每次用到的时候都去翻以前的程序，神烦。

嘛，总之先这样。