t<-table(rownames(matrix))
newmatrix<-matrix(0,length(t),ncol(matrix))
for(i in 1:length(t))
{index<-which(rownames(matrix) %in% names(t)[i])
if(length(index)==1) newmatrix[i,]<-matrix[index,]
else newmatrix[i,]<-colMeans(matrix[index,])}
###matrix为你的数据集,将数据第一列作为matrix的行名,新的数据集存放在newmatrix中 |