在tidyverse中利用新旧名称映射选择并重命名数据框列

需要基于单独数据框中存储的新旧列名对应关系，对原数据框选择指定列并重命名。

原数据框定义 #

df <- tribble(
  ~year, ~country, ~series1, ~series2, 
  2003, "USA", 8, 5,
  2004, "USA", 9, 6, 
  2005, "USA", 11, 7, 
  2006, "USA", 10, 8
)

列名映射规则 #

通过以下数据框指定新旧列名的对应关系：

specs <- tribble(
  ~old_name, ~new_name, 
  "country", "region",
  "series1", "gdp_growth"
)

期望输出 #

最终要得到的数据框如下：

expected_df <- tribble(
  ~region, ~gdp_growth,
  "USA", 8, 
  "USA", 9, 
  "USA", 11, 
  "USA", 10
)

错误尝试及报错信息 #

执行以下代码时触发语法错误：

df %>% 
  select(specs$new_name = specs$old_name)

报错内容：

Error: unexpected '=' in: "df %>% select(specs$new_name ="

方法1：用命名向量配合select() #

先把specs转换成命名向量（旧列名为向量名称，新列名为对应值），再用all_of()传入select()：

# 构建命名映射向量
name_map <- setNames(specs$new_name, specs$old_name)

# 选择并重命名列
result <- df %>% select(all_of(name_map))

方法2：先选列再重命名 #

先筛选出需要的旧列，再根据specs的映射关系批量重命名：

result <- df %>% 
  select(all_of(specs$old_name)) %>% 
  rename_with(~ specs$new_name[match(.x, specs$old_name)])

方法3：rename()结合命名向量 #

先用命名向量完成重命名，再筛选出目标新列：

name_map <- setNames(specs$new_name, specs$old_name)

result <- df %>% 
  rename(!!!name_map) %>% 
  select(all_of(specs$new_name))

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