R aggregate() by group using some function (e.g., max) 然后投影到其他列

Question

给定一个包含 ID 列、值列和日期列的数据框，我想执行以下操作:对于每个 ID(按 ID 分组)返回具有最高值的行的日期。

> df <- data.frame(ID=c(101, 101, 101, 202), Date=c("2013-04-12", "2013-06-21", "2013-07-06", "2013-07-06"), Value=c(3.4, 5.8, 4.2, 2.1))
> df
   ID       Date Value
1 101 2013-04-12   3.4
2 101 2013-06-21   5.8
3 101 2013-07-06   4.2
4 202 2013-07-06   2.1

对于上面的数据框，输出应该是这样的:

   ID       Date
1 101 2013-06-21 # because it has highest Value for ID=101 (i.e., 5.8)
2 202 2013-07-06 # bacause it has highest Value for ID=202 (2.1)

我知道如何使用 aggregate() 通过 ID 获取最大值，但我如何才能返回 Date 列而不是实际聚合的 max() 值？

Answer 1

如果您的数据集很大，这里有一个 data.table 方法:

library(data.table)
df <- data.table(df)
df[ , Date[which.max(Value)], by=ID]
    ID         V1
1: 101 2013-06-21
2: 202 2013-07-06

如果您的数据大小适中并且您没有太多 ID 值(我猜是 > 100 - 500)，那么您也可以这样做:

sapply(X=split(df, df$ID),
       FUN=function (k) k$Date[which.max(k$Value)])
       101        202 
2013-06-21 2013-07-06