使用data.table计算分组总和除以总和

Question

我有一些数据：

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函数中执行此操作。