如何高效重排R数据框列：让var_2紧跟var_1而非var_10

当前数据框的列名因字符串排序逻辑，出现var_10紧跟var_1的情况，需要调整为按var_后的数字大小升序排列，同时保留num列在首位。

问题重现代码 #

num <- 1:5
basedf <- data.frame(num)
n <- 1:50
basedf[paste0('var_', n)] <- do.call(cbind, lapply(n, function(x) basedf$num^x))

# 低效的手动重排方式
df <- basedf |> dplyr::relocate(var_2, .after = var_19) |> 
  dplyr::relocate(var_3, .after = var_29) |> 
  dplyr::relocate(var_4, .after = var_39) |> 
  dplyr::relocate(var_5, .after = var_49) |> 
  dplyr::relocate(var_6:var_9, .after = var_50) 

names(df)

当前错误列顺序（片段）：

[1] "num"    "var_1"  "var_10" "var_11" ... "var_19" "var_2"  ...

期望列顺序：

[1] "num"    "var_1"  "var_2"  "var_3"  ... "var_9"  "var_10" ... "var_50"

高效解决方案 #

方法1：基础R原生实现

提取var_后缀的数字，按数值排序后重新排列列：

# 拆分列名
cols <- names(basedf)
num_col <- cols[cols == "num"]
var_cols <- cols[cols != "num"]

# 按var_后的数字排序
sorted_vars <- var_cols[order(as.integer(sub("var_", "", var_cols)))]

# 重组数据框
df_sorted <- basedf[c(num_col, sorted_vars)]

# 验证结果
names(df_sorted)

方法2：dplyr一站式重排

结合dplyr::relocate和排序逻辑，一次性完成调整：

library(dplyr)

df_sorted <- basedf |>
  relocate(
    all_of(var_cols[order(as.integer(sub("var_", "", var_cols)))]),
    .after = num
  )

方法3：stringr辅助提取数字（格式兼容更强）

如果列名格式更复杂，用stringr提取数字更直观：

library(stringr)

sorted_vars <- var_cols[order(as.integer(str_extract(var_cols, "\\d+")))]
df_sorted <- basedf[c(num_col, sorted_vars)]

核心逻辑 #

以上方法均无需逐个调用relocate，核心是提取var_后的数字并按数值排序，再重新组合列顺序，无论var_*列数量多少，都能高效完成重排。

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