如何在R数据框中创建行总和和行积列?