data.table刪除鍵行和匯總

Question

我正在尋找一種優雅的方法來迭代data.table的鍵，刪除具有該鍵的行，然后對剩余的行進行匯總。 例如：

mydt <- data.table(cat=c("a","a","b","b","c","c","c"), vals = 1:7)
setkey(mydt,cat)
tmp1 <- mydt[!"a"][,mean(vals)]
tmp2 <- mydt[!"b"][,mean(vals)]
tmp3 <- mydt[!"c"][,mean(vals)]
outdt <- data.table(cat=c("a","b","c"),means=c(tmp1,tmp2,tmp3))

有沒有辦法循環鍵，優雅地做到這一點？ 謝謝。

Answer 1

我認為這樣做，使用更傳統的data.table代碼：

setkey(mydt,cat)
mydt[, list(means=mean(mydt[!.BY,vals])), by=cat]

# or without needing to key first
mydt[, list(means=mean(mydt[cat != .BY,vals])), by=cat]

#   cat means
#1:   a   5.0
#2:   b   4.2
#3:   c   2.5