R 如何更改和添加具有新ID名称的新列

我需要更改许多文件中的列。我有一些文件，其中ID列中的名字写错了。我准备了包含两列“错误ID”和“新ID”的excel文件，现在我想在每个文件中更改它

例如

wrong ID         new ID
CALU1            calu-1

---

我有将近300个不同的ID。

我们可以在阅读完文件后将其保存在

列表中

，然后在

 library(dplyr)
 lst1 <- lapply(files, function(x) {

            x1 <- read.csv(x)
            x1 %>% 
                 rename_at(vars(df$`wrong ID`), ~ df$`new ID`)
            })

库（dplyr）
lst1