R语言按分组保留var1第二大值对应行：已尝试方法出错求排查

dplyr方法的错误 #

你的slice_tail用法完全不对，这个函数的参数只有要提取的行数n，没法直接传入排序逻辑。你写的slice_tail(2, -var1)属于语法错误，函数根本不识别这种写法。要实现需求，得先按var1降序排列组内数据，再提取第2行。

base R方法的问题 #

你的base R代码在当前测试数据下其实能得到正确结果，但存在两个隐患：

• 如果组内var1有多个相同的第二大值，会把所有符合条件的行都选出来（如果需求是仅保留一行，这就不符合预期）；
• 如果组内元素数量不足2个，tail(sort(x),2)[1]会返回NA，导致选中错误的行。
  另外，你说得到错误结果，可能是对“第二大值”的逻辑理解偏差？比如误把原始顺序的第二行当成第二大值，但你的代码逻辑是对的，除非你实际需求并非如此。

正确解法 #

dplyr方案 #

方法一：先排序再取行

problem %>%
  group_by(id) %>%
  arrange(desc(var1)) %>%  # 按var1降序排列组内数据
  slice(2) %>%             # 取每组第2行（即第二大值的行）
  ungroup()

方法二：用slice_max更直观

problem %>%
  group_by(id) %>%
  slice_max(var1, n = 2) %>%  # 取每组var1最大的2行
  slice(2) %>%                # 取其中第二行（即第二大值的行）
  ungroup()

base R方案 #

稳健版（兼容组内元素不足2的情况）

problem[with(problem, ave(seq_along(var1), id, FUN = function(x) {
  # 对组内var1降序排序，拿到索引位置
  sorted_idx <- order(-var1[x])
  # 若组内至少2个元素，返回第二大值的位置，否则返回NA（不选中）
  if(length(sorted_idx) >= 2) x[sorted_idx[2]] else NA
})), ]

简化版（确保每组至少2个元素时使用）

problem[with(problem, ave(var1, id, FUN = function(x) {
  # 直接取降序排序后的第二个元素，判断是否匹配
  x == sort(x, decreasing = TRUE)[2]
})), ]

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