如何在R/Tidyverse循环中动态重命名数据框列名？

问题背景 #

原重复代码片段：

my_function(dataframe, "GroupA", 25) %>% 
  arrange(desc(percent)) %>% 
  rename(percent_A=percent)

my_function(dataframe, "GroupB", 50) %>% 
  arrange(desc(percent))%>% 
  rename(percent_B=percent)

my_function(dataframe, "GroupC", 75) %>% 
  arrange(desc(percent))%>% 
  rename(percent_C=percent)

my_function(dataframe, "GroupD",100) %>% 
  arrange(desc(percent))%>% 
  rename(percent_D=percent)

# ...

尝试用命令式循环重构，但在动态重命名列时遇到阻碍：

params = tibble(
  group = c("GroupA", "GroupB", "GroupC", "GroupD"),
  value = c(25, 50, 75, 100)
)

for(i in 1:nrow(params)) {
    my_function(dataframe, params[i,1], params[i,2]) %>% 
        arrange(desc(percent)) %>% 
        rename(percent_D=percent)
#                      ^------- 此处需动态生成列名
}

需求：实现类似rename("percent" + substring(params[i, 1], 5, 1) = percent)的动态列名重命名逻辑。

解决方案 #

1. 循环中使用tidyeval准引用 #

利用dplyr的tidyeval语法，通过sym()将字符串转为符号，再用!!注入到rename()中：

library(dplyr)

params = tibble(
  group = c("GroupA", "GroupB", "GroupC", "GroupD"),
  value = c(25, 50, 75, 100)
)

# 初始化列表存储每个分组的结果
result_list = list()

for(i in 1:nrow(params)) {
  current_group = params$group[i]
  # 提取Group后的后缀，生成新列名
  new_col_name = paste0("percent_", substr(current_group, 6, nchar(current_group)))
  
  processed_df = my_function(dataframe, current_group, params$value[i]) %>% 
    arrange(desc(percent)) %>% 
    rename(!!sym(new_col_name) := percent)
  
  result_list[[i]] = processed_df
}

# 可选：将所有结果按行合并
final_combined_df = bind_rows(result_list)

2. 使用rename_with简化重命名 #

rename_with支持直接传入函数生成新列名，代码更简洁：

for(i in 1:nrow(params)) {
  current_group = params$group[i]
  suffix = substr(current_group, 6, nchar(current_group))
  
  processed_df = my_function(dataframe, current_group, params$value[i]) %>% 
    arrange(desc(percent)) %>% 
    rename_with(~paste0("percent_", suffix), percent)
  
  result_list[[i]] = processed_df
}

3. 用purrr批量处理替代循环（tidyverse风格） #

如果偏好函数式编程，用purrr::pmap批量遍历参数，避免显式循环：

library(purrr)
library(dplyr)

result_list = pmap(params, function(group, value) {
  suffix = substr(group, 6, nchar(group))
  my_function(dataframe, group, value) %>% 
    arrange(desc(percent)) %>% 
    rename_with(~paste0("percent_", suffix), percent)
})

final_combined_df = bind_rows(result_list)

内容的提问来源于stack exchange，提问作者Jack L.