数据框:mRNA; 基因名列:Symbol(在该数据框最后一列);results = t(sapply(split(mRNA,mRNA$Symbol),function(x) colMeans(x[,1:(ncol(x)-1)])))