R：data.table组和求和两列

Question

好的，我坚持尝试使用data.table包对两个单独的列进行分组和求和。

我的DT：

PARK   WTG    T_stop    T_AF
PC    81970   4.743     4.742
PC    81970   48.850    47.462
PC    81970   16.714    0.000
PC    81970   0.121     0.115
PC    81970   0.004     0.004
PC    81970   0.015     0.000
PC    81970   0.049     0.046
PC    81970   0.090     0.090
PC    81970   0.060     0.060
PC    81970   0.163     0.152

现在，我尝试使用data.table函数：

DT[, lapply(.SD, sum), by = c("PARK", "WTG")]

但是我的结果看起来像这样：

PARK   WTG    T_stop    T_AF
PC    81970   70.808    5.267

我正在寻找的是：

PARK   WTG    T_stop    T_AF
PC    81970   70.808    52.671

现在这只是我的数据集的大约700行的摘要

Answer 1

从您的评论看来，您似乎正在获得期望的结果，但使用的是科学计数法。 如果您想看到的话，尝试四舍五入到小数点后3位：

DT[, lapply(.SD, function(x) round(sum(x), 3)), by = c("PARK", "WTG")]

Answer 2

使用plyr软件包，您可以尝试以下操作：

DT_sum <- ddply(DT, .("PARK","WTG"), colSums)