是否存在R函数可实现列变量的自定义排序？

当然有办法实现你的需求！你碰到的是典型的字符串格式的数字列名按字典序排序的问题——R默认会把这些列名当作字符处理，所以才会出现11→110→1100→12的顺序。我们只需要把列名转换成数值后排序，再重新排列数据框的列就可以了。

步骤1：构造示例数据框 #

先还原你的数据（方便后续演示）：

# 创建你的数据框
df <- data.frame(
  Col1 = c("a", "b"),
  "11" = c(1, 16),
  "110" = c(2, 5),
  "1100" = c(20, 3),
  "12" = c(22, 18),
  stringsAsFactors = FALSE
)

步骤2：按数值排序列 #

通过以下代码重新排列列，得到你想要的顺序：

# 提取除了Col1之外的列名
num_col_names <- colnames(df)[-1]

# 将列名转换为数值，获取排序后的索引
sorted_col_indices <- order(as.numeric(num_col_names))

# 重新排列数据框的列：保留Col1，然后按排序后的顺序放置其他列
df_sorted <- df[, c(1, sorted_col_indices + 1)]

步骤3：查看结果 #

运行print(df_sorted)，就能得到目标输出：

Col1 11 12 110 1100
a    a  1 22   2   20
b    b 16 18   5    3

更简洁的写法（用dplyr） #

如果你习惯用dplyr包，还可以用更直观的链式操作：

library(dplyr)

df_sorted <- df %>%
  select(Col1, names(.)[-1][order(as.numeric(names(.)[-1]))])

原理说明 #

核心逻辑是：把原本是字符串的列名（比如"11"、"12"）转换成数值类型，这样order()函数就会按照数值大小排序，而不是字符串的字典序，完美解决"110"排在"12"前面的问题。

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