tập hợp nhiều cột trong data.table

Question

Tôi có sau mẫu data.table:

dtb <- data.table(a=sample(1:100,100), b=sample(1:100,100), id=rep(1:10,10)) 

Tôi muốn kết hợp lại tất cả các cột (a, b, mặc dù họ phải được giữ riêng biệt) bằng cách sử dụng id colSums, ví dụ . cách chính xác để làm điều này là gì? Sau đây không hoạt động:

dtb[,colSums, by="id"] 

Đây chỉ là một mẫu và bảng của tôi có nhiều cột vì vậy tôi muốn tránh xác định tất cả trong số họ trong tên hàm

Answer 1

này thực sự là những gì tôi đang tìm kiếm và được nhắc đến trong FAQ:

dtb[,lapply(.SD,mean),by="id"] 

Answer 2

Tôi đoán trong trường hợp này là nó nhanh nhất để mang dữ liệu của bạn đầu tiên sang định dạng dài và làm hợp của bạn bên cạnh (xem ý kiến ​​của Matthew trong SO post này):

library(data.table) 
dtb <- data.table(a=sample(1:100,100), b=sample(1:100,100), id=rep(1:10,10)) 
library(reshape2) 
dt_long <- as.data.table(melt(dtb, id.var="id")) 
dt_long[, sum(value), by=c("id","variable")] 
    id variable V1 
1: 1  a 601 
2: 2  a 440 
3: 3  a 496 
4: 4  a 553 
5: 5  a 444 
6: 6  a 466 
7: 7  a 525 
8: 8  a 553 
9: 9  a 541 
...