如何为存储在R中data.table对象中的数据创建带有总和的数据透视表?