如何交换100列以上dataframe的前两列且无需手动指定全量列顺序？

以下方案适配100列以上的大数据框，仅交换前两列位置，其余列顺序保持不变，无需手动指定全部列名：

方案1：基础R实现（无需加载额外包） #

直接通过列索引拼接实现，逻辑简单通用：

# 2对应原第2列，1对应原第1列，3:ncol(dfrm)自动匹配第3列到末尾的所有列
dfrm <- dfrm[, c(2, 1, 3:ncol(dfrm))]

如果担心索引对应出错，也可以通过列名操作，稳定性更高：

col_names <- colnames(dfrm)
dfrm <- dfrm[, c(col_names[2], col_names[1], col_names[3:length(col_names)])]

方案2：tidyverse风格实现（dplyr包） #

使用dplyr的relocate函数语义更清晰，代码更简洁：

library(dplyr)
# 将第2列移动到第1列的前方，其余列顺序保持不变
dfrm <- dfrm %>% relocate(2, .before = 1)

也可以直接指定列名操作，避免索引混淆：

dfrm <- dfrm %>% relocate(sampleID, .before = 1)

效果验证 #

可以用以下测试代码模拟多列场景验证调整效果：

# 构造101列的测试数据框，模拟超过100列的使用场景
test_df <- data.frame(
  wrong_col = 1:10,
  sampleID = paste0("s", 1:10)
)
# 批量补充剩余99列
for (i in 3:101) {
  test_df[[paste0("col", i)]] <- rnorm(10)
}

# 执行列顺序调整
test_df <- test_df[, c(2, 1, 3:ncol(test_df))]

# 打印前5个列名，确认sampleID已调整到第一列
head(colnames(test_df), 5)

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