R中实现自定义字母顺序+常规数字排序的混合排序方法

你可以通过「自定义前缀排序优先级 + 同组内自然排序」的逻辑实现需求，仅依赖你已经在用的gtools包即可完成，后续新增前缀或更大的数字都无需修改逻辑：

实现代码 #

library(gtools)

# 原始数据
data <- c("ABCD 2", "ABCD 3", "WXYZ 1", "WXYZ 5", "WXYZ 3", "WXYZ 4", "ABCD 4", "ABCD 11")

# 1. 按业务需求定义前缀的自定义排序顺序，向量中越靠前的前缀排序优先级越高
custom_prefix_order <- c("WXYZ", "ABCD")

# 2. 提取每个标签的前缀（空格前的部分，可根据你的标签分隔规则调整正则表达式）
tag_prefix <- sub(" .*", "", data)

# 3. 将前缀转为自定义顺序的因子，排序时会严格遵循你指定的前缀先后逻辑
prefix_factor <- factor(tag_prefix, levels = custom_prefix_order)

# 4. 先按前缀优先级排序，同前缀的标签用mixedorder实现数字的自然正序
data_sorted <- data[order(prefix_factor, mixedorder(data))]

输出验证 #

运行后data_sorted的结果完全符合预期：

> data_sorted
[1] "WXYZ 1"  "WXYZ 3"  "WXYZ 4"  "WXYZ 5"  "ABCD 2"  "ABCD 3"  "ABCD 4"  "ABCD 11"

通用性说明 #

• 新增前缀时只需修改custom_prefix_order向量，按你想要的排序先后添加前缀值即可
• 数字部分自动支持任意长度的正整数自然排序，无需手动指定数字范围
• 如果标签的分隔符不是空格，只需调整sub函数中的正则表达式即可适配，例如下划线分隔的标签可以改为sub("_.*", "", data)

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