如何在R中按自定义字母顺序对字母数字列排序？

需求是对数据框的列进行排序，要求字母（a-z）排在数字（0-9）之前，而非默认的数字优先。以下提供Base R、Tidyverse、data.table三种实用实现方式：

示例数据 #

先定义输入数据：

df <- data.frame(x = c("a1", "a1a", "0a", "za", "2a", "a2", "0ab", "0aa"))

期望输出的排序结果：

# 排序后x列顺序："a1", "a1a", "a2", "za", "0a", "0aa", "0ab", "2a"

Base R 实现 #

核心思路是生成自定义排序键：将每个字符映射到优先级（字母优先级 < 数字优先级），然后基于键排序。

方法1：纯Base R实现 #

# 定义自定义顺序：先字母a-z，再数字0-9
custom_order <- c(letters, 0:9)
# 创建字符到优先级的映射，字母从1开始，数字从27开始
char_map <- setNames(seq_along(custom_order), custom_order)

# 生成每个字符串的排序键：拆分字符后取对应优先级，拼接成可排序的固定长度字符串
get_sort_key <- function(s) {
  chars <- strsplit(s, "")[[1]]
  paste0(sprintf("%02d", char_map[chars]), collapse = "")
}

# 生成排序键并排序
sorted_df_base <- df[order(sapply(df$x, get_sort_key)), , drop = FALSE]

方法2：借助stringi简化（需安装stringi包） #

如果安装了stringi，可以更简洁地调用内置的自定义排序功能：

library(stringi)
# 按自定义规则排序
sorted_df_base2 <- df[order(stri_order(df$x, locale = "en", opts_collator = list(custom_order = custom_order))), , drop = FALSE]

Tidyverse 实现 #

结合dplyr的排序函数和purrr处理字符优先级，逻辑清晰易读：

library(dplyr)
library(purrr)

custom_order <- c(letters, 0:9)
char_map <- setNames(seq_along(custom_order), custom_order)

sorted_df_tidy <- df %>%
  mutate(sort_key = map_chr(x, ~{
    chars <- str_split(.x, "")[[1]]
    paste0(sprintf("%02d", char_map[chars]), collapse = "")
  })) %>%
  arrange(sort_key) %>%
  select(-sort_key)

data.table 实现 #

利用data.table的高效排序特性，适合处理大规模数据集：

library(data.table)
dt <- as.data.table(df)

custom_order <- c(letters, 0:9)
char_map <- setNames(seq_along(custom_order), custom_order)

# 生成排序键并排序
dt[, sort_key := sapply(x, function(s) {
  chars <- strsplit(s, "")[[1]]
  paste0(sprintf("%02d", char_map[chars]), collapse = "")
})]
setorder(dt, sort_key)
sorted_dt <- dt[, !"sort_key"]

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