如何根据 R 中的字典在多个数据框中重命名具有不同列名和不同顺序的多个列

Question

我正在合并来自不同来源的多个数据集。 每个数据集的列名（作为 datframes）具有不同的名称和不同的顺序。 我创建了一个字典，其中包含所有不同的名称和我想要重命名原始名称的通用名称。 如何使用 R 中的字典重命名原始列名？ 我特别想使用字典，因为将来我可能会添加更多数据集（具有不同的列名），并且很容易适应字典。

我知道我可以手动重命名每一列，但是有很多（比如 30 个），并且它们可能会随着新数据集的添加而改变。

df1 <- data.frame(site = c(1:6), code = c(rep("A",3), rep("B", 3)), result = c(20:25))

df2 <- data.frame(site_no = c(10:19), day = c(1:10), test = c(rep("A", 5), rep("B", 5)), value = c(1:10))

dict <- data.frame(oldName = c("site", "code", "result", "site_no", "day", "test", "value"),  newName = c("site_number", "parameter", "result", "site_number", "day", "parameter", "result"))

我想根据字典 dataframe 重命名 df1 和 df2 中的列，其中包含旧名称（来自 df1 和 df2 的所有列名）和新名称（要使用的常用名称）。

结果将是：

colnames(df1)
"site_number" "parameter" "result"

colnames(df2)
"site_number" "day" "parameter" "result"

Answer 1

我们可以将各个df的名称与旧名称match ，然后在匹配的索引处提取新名称：

names(df1) = with(dict,newName[match(names(df1),oldName)])
names(df2) = with(dict,newName[match(names(df2),oldName)])
print(df1)
print(df2)

Answer 2

我们可以在将数据集放入list后使用rename_all 。 最好将这些数据集放在list ，而不是将它们放在全局环境中

library(dplyr)
library(purrr)
out <- mget(ls(pattern = "^df\\d+$")) %>%
       map(~ .x %>% 
         rename_all(~  as.character(dict$newName)[match(., dict$oldName)]))

如果需要，我们可以使用list2env更改原始 object 中的列名

list2env(out, .GlobalEnv)
names(df1)
#[1] "site_number" "parameter"   "result"     

names(df2)
#[1] "site_number" "day"         "parameter"   "result"