我曾经使用aggregate
进行数据聚合,如何在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))
我曾经这样做:aggregate(metric~a+b, data=data, sum)
。在data.table
中执行此操作的等效方法是什么?我尝试了data[, total:=sum(metric), by=list(a,b)]
,但其他列均未删除。
您可以过滤结果:
data[, total:=sum(metric), by=list(a,b)][, c('a','b','metric')]
获得相同结果的另一种方法(我认为它更快)是使用dcast
:
reshape2::dcast(data,a+b~.,fun=sum,value.var="metric")