无需复制旧变量名：长变量重命名方法及迭代优化问询

从Excel导出的问卷数据常带有冗长的问题式变量名，复制这类名称重命名不仅繁琐，还容易出错。你之前用索引逐个调用rename的方法虽避免了复制旧名，但效率较低，以下是几种更高效的批量重命名方案：

方法1：直接替换变量名向量（最简洁） #

适合按变量顺序批量重命名的场景，直接给数据框的names赋值新名称即可：

library(tidyverse)

# 构造示例数据
data <- data.frame( 
  "please tell us what your age is?" = c(24, 35, 46, 14 ),
  "what is your sex?" = c("male", "female", "male", "female")
)

# 定义新变量名（顺序与原变量对应）
new_names <- c("age", "sex")
# 批量替换
names(data) <- new_names

data

方法2：用rename_with实现批量重命名 #

适合需要指定重命名范围（比如仅前N列）或结合规则的场景：

# 针对所有变量批量重命名
data <- data %>%
  rename_with(~ new_names, everything())

# 仅针对前2列重命名
data <- data %>%
  rename_with(~ new_names[1:2], 1:2)

方法3：用命名向量结合rename（灵活映射） #

如果需要更灵活的索引对应（比如不按顺序重命名），可以先创建旧名索引到新名的映射，再批量替换：

# 创建映射：原变量索引对应新名称
rename_map <- set_names(new_names, names(data)[1:2])

# 批量重命名
data <- data %>%
  rename(!!!rename_map)

以上方案都能一次性完成批量重命名，避免了多次调用rename的繁琐操作，同时保留了通过索引避免复制长变量名的优势。

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