如何分组并得到具有X max的Y列的值？

Question

我有一个以前没见过的用例。我有以下数据框，并且想要选择“y”的值，其中“x”分别对于条件“i”的每个级别达到其最小值和最大值。

> library(dplyr) 
> df <- data.frame(i=c(1,1,2,2),x=c(1.0,2.0,3.0,4.0),y=c('a','b','c','d'))
> ddply(df, .(i), summarise, Min=min(x), Max=max(x))
  i Min Max
  1   1   2
  2   3   4

这是正确的，但我想改为y x是Min或Max。

  i Min Max
  1   a   b
  2   c   d

我怎样才能做到这一点？

Answer 1

     library(plyr)
     df <- data.frame(i=c(1,1,2,2),x=c(1.0,2.0,3.0,4.0),y=c('a','b','c','d'))
     ddply(df, .(i), summarise, Min=y[which.min(x)], Max=y[which.min(x)])

Answer 2

我们可以使用slice

library(dplyr)
df %>% 
   group_by(i) %>% 
   slice(which.min(x)) %>%
   #or
   #slice(which.max(x)) %>%
   select(-x)

Answer 3

如果你愿意走出tidyverse的另一个选择是data.table：

setDT(df)[, list(min = y[which.min(x)],
                 max = y[which.max(x)]), by = i]

#   i min max
#1: 1   a   b
#2: 2   c   d

Answer 4

基础R的解决方案：

output <- by(df, df[, "i"], with, {
  data.frame(i=i[1], min=y[which.min(x)], max=y[which.max(x)])
})

给

> output
df[, "i"]: 1
  i min max
1 1   a   b
------------------------------------------------------------ 
df[, "i"]: 2
  i min max
1 2   c   d

（data.frame对于保留“y”的因子结构是必要的，我相信）。

输出可以与do.call(rbind, output)连接

> do.call(rbind, output)
  i min max
1 1   a   b
2 2   c   d