R data.table聚合数据

假设我生成这样的数据：

data <- data.table("a"=sample(1:100, 100),
                   "b"=sample(1:100, 100),
                   "c"=sample(1:100, 100),
                   "d"=sample(1:100, 100),
                   "metric"=rnorm(100))

我曾经这样做：聚合(metric~a b,data = data,sum).在data.table中执行此操作的等效方法是什么？我尝试了数据[,total：= sum(metric),by = list(a,b)],但其他列未被删除.

data[, total:=sum(metric), by=list(a,b)][, c('a','b','metric'), with=FALSE]

获得相同结果的另一种方法(我认为它更快)是使用dcast：

reshape2::dcast(data,a+b~.,fun=sum,value.var="metric")