如何用dplyr relocate按列名年份批量重排R数据框列

问题1：通用化relocate适配后续新增年份列 #

核心思路是先自动识别所有列的属性（非年份固定列/年份列），按年份升序+同一年份指标前缀升序规则生成目标列顺序，再一次性调用relocate完成重排，无需重复写语句：

library(dplyr)
library(stringr)

# 动态提取所有列信息
all_cols <- colnames(dat)
# 提取列名末尾的四位年份，非年份列返回NA
year_part <- str_extract(all_cols, "\\d{4}$")
is_year_col <- !is.na(year_part)

# 固定列（所有不含年份的列）、按规则排序的年份列
fixed_cols <- all_cols[!is_year_col]
sorted_year_cols <- all_cols[is_year_col][order(year_part[is_year_col], all_cols[is_year_col])]

# 一次性重排
dat <- dat %>% 
  relocate(all_of(c(fixed_cols, sorted_year_cols)))

后续不管新增2021、2022等新年份列，还是新增cost_、profit_等新指标前缀的年份列，这段代码都可以自动适配，不需要修改逻辑。

问题2：不使用dplyr::relocate的更优方案 #

直接用Base R原生的列索引重排即可，不依赖任何第三方包，大数据量下运行效率远高于dplyr方案，适配性同样拉满：

all_cols <- colnames(dat)
# 提取列名末尾年份，非年份列返回NA
year_part <- sub(".*_(\\d{4})$", "\\1", all_cols)
is_year_col <- !is.na(suppressWarnings(as.numeric(year_part)))

# 生成排序后的列名
fixed_cols <- all_cols[!is_year_col]
sorted_year_cols <- all_cols[is_year_col][order(year_part[is_year_col], all_cols[is_year_col])]
final_cols <- c(fixed_cols, sorted_year_cols)

# 直接重排数据框列
dat <- dat[, final_cols]

两种方案运行后的输出都和你测试得到的预期结果完全一致。

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