如何为R数据框中的某些列的行的平均值创建新的数据框?