可以添加一个辅助列，比如一共有500行数据。定义一个辅助列a，和原数据集有相同的行数。
a<-rep(c(1,2,3,4,5), each=100)
然后把这个辅助列和原数据集列合并，假设原数据集的名称为dataframe
dataframe<-cbind(a, dataframe)
最后利用aggregate()函数分类求和
aggdata<-aggregate(dataframe, by=list(a), FUN=sum, na.rm=TRUE)