如何对含可变层级段落编号的DataFrame进行自然排序？

这个层级编号排序的问题确实挺棘手的——默认字符串排序会把1.10排在1.2前面，而且层级数量不固定又没法提前硬编码拆分列数。我给你分享两个在R里能完美解决这个问题的方法：

方法一：动态拆分层级并补全排序 #

这个方法的核心是先把段落编号拆分成层级列表，然后自动补全所有条目到最长层级数，再按每个层级的数值排序，完全适配任意层级数量：

library(tidyverse)

# 你的原始数据
table <- data.frame(id=c(1,2,3,4,5,6,7,8,9,10), 
                    paragraph=c("1.1.1.1","1","2","1.1","100","1.2","10","1.1.1","1.1.2","1.10"))

# 1. 把段落编号按`.`拆分成层级列表（注意转义`.`，正则里它是通配符）
table <- table %>%
  mutate(levels = str_split(paragraph, "\\."))

# 2. 找出所有条目中的最大层级数
max_level <- max(map_int(table$levels, length))

# 3. 把每个层级列表补全到max_level长度，不足的用NA填充，再转成数值矩阵
level_matrix <- table$levels %>%
  map(~ c(as.numeric(.), rep(NA, max_level - length(.)))) %>%
  do.call(rbind, .)

# 4. 合并层级矩阵到原数据，按所有层级列排序，最后保留需要的列
table_sorted <- table %>%
  bind_cols(as.data.frame(level_matrix)) %>%
  arrange(across(V1:all_of(paste0("V", max_level)))) %>%
  select(id, paragraph)

print(table_sorted)

运行后就能得到你想要的排序结果，不管后续新增多少层级的编号，这个逻辑都能自动适配。

方法二：补零字符串排序（更简洁） #

如果你的段落编号里的数字不会特别大（比如不超过三位数），可以用补前导零的方式，把每个数字部分统一长度，这样普通的自然排序就能正确识别层级：

library(gtools)
library(stringr)

table_sorted <- table[
  mixedorder(
    # 把每个数字部分补成3位，比如"1.10"变成"001.010"，"1.2"变成"001.002"
    str_replace_all(table$paragraph, "\\d+", function(x) str_pad(x, 3, pad = "0"))
  ), 
]

print(table_sorted)

这个方法代码更短，执行效率也不错，适合快速实现。如果数字可能更大，只要把str_pad里的3改成更大的数字（比如5）就行。

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