求数据框data的7-10列数据的平均值，并将结果加入数据框

2021-04-19 本文已影响0人茉下忆

data$mean <- apply(data[,7:10], 1, mean)