r - 在 R 中创建 'Top 10' 列表

Question

我有一个数据框，其中每一行代表一个记录的事件。举个例子，假设我测量了过往汽车的速度，有些汽车不止一次地超过了我。

cardata <- data.frame(
  car.ID = c(3,4,1,2,5,4,5),
  speed = c(100,121,56,73,87,111,107)
  )

我可以对列表进行排序并找出三个最快的事件...

top3<-head(cardata[order(cardata$speed,decreasing=TRUE),],n=3)
> top3
  car.ID speed
2      4   121
6      4   111
7      5   107

...但您会注意到，汽车 4 记录了两次最快的时间。如何在没有任何重复汽车 ID 的情况下找到三个最快的事件？我意识到在这种情况下，“前三名”名单可能不包括三个最快的赛事。

Answer 1

您可以使用 aggregate首先找到每个 car.ID 的最高速度:

cartop <- aggregate(speed ~ car.ID, data = cardata, FUN = max)
top3 <- head(cartop[order(cartop$speed, decreasing = TRUE), ], n = 3)

 #   car.ID speed
 # 4      4   121
 # 5      5   107
 # 3      3   100