如何按R数据框中的行总和划分行值?