如何在R Dataframe中按值筛选前3行与后3行？

你之前组合slice_max()和slice_min()失败，大概率是采用了链式顺序调用的写法：前一个slice函数已经将数据裁剪为仅含3行的子集，后一个slice函数是在这3行的基础上做二次筛选，自然得不到预期结果。正确逻辑是分别筛选出最大前3、最小前3两个子集后再做合并，以下是两种常用实现方案：

方案1：使用dplyr包（tidyverse生态） #

# 加载依赖包
library(dplyr)

# 构造示例数据
df <- tibble(
  id = c("a","b","c","d","e","f","g","h","i","j","k"),
  value = c(0.9,0.2,-0.4,-0.9,0.6,0.8,-0.3,0.1,0.2,0.5,-0.2)
)

# 筛选合并
res <- bind_rows(
  slice_max(df, order_by = value, n = 3), # 取value最大的3行
  slice_min(df, order_by = value, n = 3)  # 取value最小的3行
)

# 如果需要避免极端情况下的重复行（比如所有value值都相同时），可以追加去重逻辑：
res <- res %>% distinct()

输出结果完全匹配预期：

# A tibble: 6 × 2
  id    value
  <chr> <dbl>
1 a       0.9
2 f       0.8
3 e       0.6
4 d      -0.9
5 c      -0.4
6 g      -0.3

方案2：base R实现（无需加载第三方包） #

# 构造示例数据
df <- data.frame(
  id = c("a","b","c","d","e","f","g","h","i","j","k"),
  value = c(0.9,0.2,-0.4,-0.9,0.6,0.8,-0.3,0.1,0.2,0.5,-0.2)
)

# 排序后取对应行合并
res <- rbind(
  df[order(-df$value), ][1:3, ], # 降序排序取前3
  df[order(df$value), ][1:3, ]   # 升序排序取前3
)

内容的提问来源于stack exchange，提问作者bodega18