8

我是 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 代码的方法?”

非常感谢任何帮助,谢谢。

4

1 回答 1

7

是的,有一个方法:

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

这在data.table的常见问题解答的第 2.1 节中有所提及。

于 2013-09-18T15:50:09.913 回答