如何在R数据帧中创建具有行总和子集的新列?