ddply到data.table中等效的多個列

Question

我是data.table包的忠實粉絲，我無法將plyr包的ddply中的某些代碼轉換為data.table中的等效代碼。 ddply的代碼是：

dfx <- data.frame(
  group = c(rep('A', 8), rep('B', 15), rep('C', 6)),
  sex = sample(c("M", "F"), size = 29, replace = TRUE),
  age = runif(n = 29, min = 18, max = 54),
  age2 = runif(n = 29, min = 18, max = 54)
)

ddply(dfx, .(group, sex), numcolwise(sum))

我想要做的是在多個列之間求和，而不必手動指定列名。 data.table包中的手冊等價物是：

dfx.dt = data.table(dfx)
dfx.dt[ , sum.age := sum(age), by="group,sex"]
dfx.dt[ , sum.age2 := sum(age2), by="group,sex"]
dfx.dt[!duplicated(dfx.dt[ , {list(group, sex)}]), ]

明確地說，我的問題是“有沒有辦法在data.table中執行等效的ddply代碼？”

非常感謝任何幫助，謝謝。

Answer 1

是的，有一種方法：

dfx.dt[,lapply(.SD,sum),by='group,sex']

這在data.table的FAQ的 2.1節中提到。