r - 基于最小值的子集数据

Question

这可能很简单。这是数据:

dat <- read.table(header=TRUE, text="
Seg  ID  Distance
Seg46      V21 160.37672
Seg72      V85 191.24400
Seg373      V85 167.38930
Seg159     V147  14.74852
Seg233     V171 193.01636
Seg234     V171 200.21458

                   ")
dat
Seg  ID  Distance
Seg46      V21 160.37672
Seg72      V85 191.24400
Seg373      V85 167.38930
Seg159     V147  14.74852
Seg233     V171 193.01636
Seg234     V171 200.21458

我打算得到一个像下面这样的表格，它会给我 Seg 以最小化距离(因为在 ID 中可以看到重复。

Seg Crash_ID  Distance
Seg46      V21 160.37672
Seg373      V85 167.38930
Seg159     V147  14.74852
Seg233     V171 193.01636

我正在尝试使用 ddply 来解决它；但它没有到达那里。

ddply(dat, "Seg", summarize, min = min(Distance))
Seg       min
Seg159  14.74852
Seg233 193.01636
Seg234 200.21458
Seg373 167.38930
Seg46 160.37672
Seg72 191.24400

Answer 1

我们可以使用 which.min 对行进行子集化。用'ID'分组后，我们根据最小'Distance'的位置slice行。

library(dplyr)
dat %>% 
   group_by(ID) %>% 
   slice(which.min(Distance))

---

使用 data.table 的类似选项是

library(data.table)
setDT(dat)[, .SD[which.min(Distance)], by = ID]