R數據彙總與組WHERE子句

Question

作爲一個例子，我有data.table如下所示。我想做一個簡單的聚合，其中b = sum（b）。對於c，但是我想要b中最大的記錄值。所需的輸出如下所示（data.aggr）。這導致了幾個問題：

1）有沒有辦法做到這一點data.table？

2）有沒有更簡單的方法在plyr中做到這一點？

3）在plyr中，輸出對象從data.table變爲data.frame。我可以避免這種行爲嗎？

library(plyr) 
library(data.table) 
dt <- data.table(a=c('a', 'a', 'a', 'b', 'b'), b=c(1, 2, 3, 4, 5), 
       c=c('m', 'n', 'p', 'q', 'r')) 
dt 
# a b c 
# 1: a 1 m 
# 2: a 2 n 
# 3: a 3 p 
# 4: b 4 q 
# 5: b 5 r 
dt.split <- split(dt, dt$a) 
dt.aggr <- ldply(lapply(dt.split, 
    FUN=function(dt){ dt[, .(b=sum(b), c=dt[b==max(b), c]), 
    by=.(a)] }), .id='a') 
dt.aggr 
# a b c 
# 1 a 6 p 
# 2 b 9 r 
class(dt.aggr) 
# [1] "data.frame" 

Answer 1

這是data.table範圍內，通過簡單的操作

dt[, .(b = sum(b), c = c[which.max(b)]), by = a] 
# a b c 
# 1: a 6 p 
# 2: b 9 r 

類似的辦法是

dt[order(b), .(b = sum(b), c = c[.N]), by = a]