agregujące wiele kolumn w data.table

Question

mam następujące próbki data.table:

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

Chciałbym agregować wszystkie kolumny (A i B, jednak powinny one być przechowywane oddzielnie) przez id używając colSums, na przykład . Jaki jest prawidłowy sposób to zrobić? Poniższa nie działa:

dtb[,colSums, by="id"] 

To jest tylko przykładowy i moja tabela ma wiele kolumn, więc chcę uniknąć, określając wszystkie z nich w nazwie funkcji

Answer 1

to jest rzeczywiście to, co szukałem i jest wymienione w FAQ:

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

Answer 2

Chyba w tym przypadku jest to najszybciej wprowadzają swoje dane najpierw w długim formacie i wykonać agregację obok (patrz komentarze Mateusza w tym SO post):

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 
...