在dplyr链式操作中通过向量批量重命名多列

刚好遇到过类似的需求，dplyr里确实没有直接的rename_if批量重命名函数，但用rename_with就能完美解决这个问题，下面用你给出的示例数据一步步拆解实现方法：

首先先加载需要的包并确认数据：

library(tibble)
library(dplyr)

df <- tibble(RID = 1,Var1 = "A", Var2 = "B",old_name1 =4, old_name2 = 8, old_name3=20)
new_names <- c("new_name1","new_name2","new_name3")

1. 按命名规则（比如以old_name开头）批量重命名 #

用rename_with配合starts_with选择器就能精准匹配目标列，然后批量替换名字：

df_renamed <- df %>%
  rename_with(~ new_names, starts_with("old_name"))

# 输出结果验证
df_renamed
#> # A tibble: 1 × 6
#>     RID Var1  Var2  new_name1 new_name2 new_name3
#>   <dbl> <chr> <chr>     <dbl>     <dbl>     <dbl>
#> 1     1 A     B             4         8        20

这里的逻辑很直接：rename_with第一个参数是名字替换规则（这里直接传入new_names向量，因为匹配到的列数和新名字长度完全一致），第二个参数是列选择器，starts_with("old_name")帮我们选中所有符合前缀规则的列。

2. 按列位置（比如第4到第6列）重命名 #

如果是按位置筛选列，直接传入位置索引即可：

df_renamed_pos <- df %>%
  rename_with(~ new_names, 4:6)

# 输出结果和上面完全一致
df_renamed_pos

这里4:6指定了要重命名的列的位置，同样会按顺序把这些列的名字替换成new_names里的内容。

3. 同时按命名规则和位置筛选列 #

如果需要同时满足两个条件（比如既要以old_name开头，又在指定位置范围内），可以先构建一个逻辑向量来筛选目标列：

# 先确定符合双重条件的列
target_cols <- starts_with("old_name")(df) & (seq_along(df) %in% 4:6)

# 再执行重命名
df_renamed_both <- df %>%
  rename_with(~ new_names, target_cols)

这种方式能确保只重命名同时满足两个规则的列，避免误操作。

重要注意事项 #

一定要保证匹配到的列数和new_names的长度完全一致，否则会抛出错误。可以提前验证：

# 检查匹配列数和新名字长度是否匹配
target_col_count <- df %>% select(starts_with("old_name")) %>% ncol()
target_col_count == length(new_names) # 返回TRUE才可以执行重命名

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