如何在R数据框中按行平均值划分行值?