如何基于标记向量批量重命名数据框变量（可扩展方案）

针对你的需求，这里提供两种**适合大规模列（数千列）**的向量化解法，无需循环，效率极高：

方法一：Base R 原生实现 #

利用向量操作直接修改列名，无需额外依赖：

# 获取需要修改的列名（排除id列）
target_cols <- colnames(dataf)[-1]
# 根据sep向量生成新列名：标记1则加后缀_mod，0则保留原名
new_col_names <- ifelse(sep == 1, paste0(target_cols, "_mod"), target_cols)
# 替换原数据框的列名
colnames(dataf)[-1] <- new_col_names

执行后查看结果：

> dataf
  id      A_1_mod     A_2_mod        A_3        A_4        A_5
1  1 -0.56047565  1.7150650  1.2240818  1.7869131 -1.0678237
2  2 -0.23017749  0.4609162  0.3598138  0.4978505 -0.2179749
3  3  1.55870831 -1.2650612  0.4007715 -1.9666172 -1.0260044
4  4  0.07050839 -0.6868529  0.1106827  0.7013559 -0.7288912
5  5  0.12928774 -0.4456620 -0.5558411 -0.4727914 -0.6250393

方法二：tidyverse（dplyr）实现 #

如果你习惯使用tidyverse生态，rename_with函数可以更简洁地完成批量重命名：

library(dplyr)

dataf <- dataf %>%
  rename_with(
    .cols = -id,  # 指定要修改的列（排除id）
    .fn = ~ ifelse(sep == 1, paste0(., "_mod"), .)  # 重命名规则
  )

关键说明 #

两种方法都是向量化操作，避免了逐列循环，处理数千列时性能优异。需要确保sep向量的长度和目标列的数量完全匹配（这里对应A_1到A_5共5列）。

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