在R中按分组排序时，如何以第二最小值作为平局破局依据

原代码基于分组内的最小值对类别进行排序，但当多个分组的最小值相同时，缺乏后续的排序规则。要实现以第二最小值作为平局破局依据，可以通过以下方式修改代码：

示例数据（含重复最小值场景） #

先构造一组测试数据，其中dog、cat、bird的组内最小值均为12，需要通过第二最小值区分排序优先级：

species <- data.frame(
  species = c("dog", "dog", "cat", "cat", "fish", "bird", "bird"),
  overall.percentage = c(12, 13, 12, 20, 20, 12, 15)
)

Base R 实现方案 #

无需额外依赖包，延续原代码风格：

species <- species |>
  # 计算每组的最小值与第二最小值（兼容单元素分组）
  transform(
    min_val = ave(overall.percentage, species, FUN = function(x) sort(x)[1]),
    second_min_val = ave(overall.percentage, species, FUN = function(x) {
      sorted_x <- sort(x)
      if (length(sorted_x) >= 2) sorted_x[2] else sorted_x[1]
    })
  ) |>
  # 按「最小值→第二最小值」的规则排序，生成order列
  transform(
    order = as.numeric(factor(species, levels = unique(species[order(min_val, second_min_val)])))
  ) |>
  # 移除辅助计算列
  subset(select = -c(min_val, second_min_val))

dplyr 实现方案（更直观） #

若习惯使用tidyverse语法，用dplyr实现会更简洁：

library(dplyr)

species <- species |>
  group_by(species) |>
  mutate(
    min_val = min(overall.percentage),
    # 取排序后的第2个值，单元素分组直接复用唯一值
    second_min_val = sort(overall.percentage)[min(2, n())]
  ) |>
  ungroup() |>
  mutate(
    # 按双规则排序后生成order列
    order = as.numeric(factor(species, levels = unique(species[order(min_val, second_min_val)])))
  ) |>
  select(-min_val, -second_min_val)

逻辑说明 #

1. 为每个分组计算两个关键值：组内最小值、组内第二最小值（单元素分组直接复用最小值）
2. 以最小值优先，第二最小值次之的规则对分组排序
3. 将排序后的分组顺序转为数值型order列，方便后续使用

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