如何按组仅保留特定列中具有最低和最高值的行？

简而言之，我该怎么办？

structure(list(id = c(1, 2, 3, 4, 5, 6), user = c(1, 1, 1, 2, 
2, 2), value = c(1, 3, 5, 2, 5, 9)), .Names = c("id", "user", 
"value"), row.names = c(NA, -6L), class = "data.frame")

to this?

structure(list(id = c(1, 3, 4, 6), user = c(1, 1, 2, 2), value = c(1, 
5, 2, 9)), .Names = c("id", "user", "value"), row.names = c(NA, 
-4L), class = "data.frame")

意思是，对于每个用户，只需要保留最低和最高对应的两行value.

我想要一个使用的解决方案dplyr， 如果可能的话。否则，任何解决方案都可以。

我们可以用slice with which.min/which.max按“用户”分组后

library(dplyr)
df1 %>%
   group_by(user) %>%
   slice(c(which.min(value), which.max(value)))
#   id  user value
#  <dbl> <dbl> <dbl>
#1     1     1     1
#2     3     1     5
#3     4     2     2
#4     6     2     9

或者另一个选择是arrange with slice。按“用户”分组后，arrange每个“用户”的“值”按升序排列，并且slice第一行和最后一行

df1 %>% 
     group_by(user) %>%
     arrange(value) %>% 
     slice(c(1, n()))

如果有联系min and/or max“价值”并希望保留所有min and max行，使用filter

df1 %>%
     group_by(user) %>% 
     filter(value %in% c(min(value), max(value)))