R 求具有重复行标签的值的和(for循环)

致敬原文章

library(plyr)
#示例表
a<-data.frame("A"=c("a","b","a"),"B"=c(1,1,3),"C"=c(2,3,4))
#先求一列初始化
alldata<-aggregate(C ~ A,data=a,sum)
#重命名避免重复
colnames(alldata)[2]<-"test"
for (i in colnames(a)[2:length(colnames(a))]){
    #计算每列的和
    ter<-aggregate(a[,i]~A,data=a,sum)
    colnames(ter)[2]<-i  
    #合并列
    alldata<-merge(alldata,ter,by="A")
    }
alldata<-alldata[,-2]