如何在R中的data.table对象中按行总和划分行值?