我有一些数据：
Groups <- c("A","A", "B","B","B","A","B","A","A")
Values <- c(1,2,5,2,1,4,6,1,2)
DT <- data.table(Groups,Values)
我想计算每个组的值之和，并使用data.table除以值的总和。我可以通过在data.table函数之前创建一个对象来完成它，如下所示：
total <- sum(DT$Values)
DT[,.(calc=sum(Values)/total), Groups]
但是我想知道是否有办法在一个data.table函数中执行此操作。