如何根据数据框在列表中的位置重命名指定列（R语言）

我有一个包含三个data frame（df1、df2、df3）的列表，每个data frame均包含x、y、z三列。我想要为所有data frame重命名z列，但新列名取决于该data frame在列表中的位置。

示例数据：

df1 <- data.frame(x=c(0:10),
                 y=c(10:20),
                 z=c(20:30))
df2 <- data.frame(x=c(0:10),
                 y=c(10:20),
                 z=c(20:30))
df3 <- data.frame(x=c(0:10),
                 y=c(10:20),
                 z=c(20:30))
lst <- list(df1, df2, df3) 

期望输出：

df1:
| x  | y  | A  |
| -- | -- | -- |
| 0  | 10 | 20 | 
| 1  | 11 | 21 |

df2:
| x  | y  | B  |
| -- | -- | -- |
| 0  | 10 | 20 | 
| 1  | 11 | 21 |

df3:
| x  | y  | C  |
| -- | -- | -- |
| 0  | 10 | 20 | 
| 1  | 11 | 21 |

我不想使用for循环，尝试用lapply()或purrr::map()实现，但未完全掌握其结构。我尝试了以下代码，但所有z列都被重命名为A：

columns <- c(A, B, C)
lapply(lst, function(df, name) {
names(df)[3] <- name
 return(df)}, columns)

问题根源 #

你写的代码有两个关键问题：

1. 列名A、B、C未加引号，R会将其视为变量而非字符串；
2. lapply()默认仅把列表元素传入函数，额外参数会被循环复用，导致所有data frame都使用第一个列名。要实现位置对应，需要用索引遍历或配对式遍历工具。

方法1：lapply()结合索引遍历 #

通过遍历列表的索引，同时获取对应位置的data frame和新列名：

columns <- c("A", "B", "C")
result_lapply <- lapply(seq_along(lst), function(i) {
  df <- lst[[i]]
  # 用列名匹配更稳妥，避免列位置变化出错
  names(df)[names(df) == "z"] <- columns[i]
  df
})
# 给结果列表命名，方便后续识别
names(result_lapply) <- c("df1", "df2", "df3")

方法2：purrr::map2()配对遍历 #

purrr包的map2()可以同时遍历两个长度相同的对象，完美匹配每个data frame和对应的新列名：

library(purrr)

columns <- c("A", "B", "C")
result_map2 <- map2(lst, columns, function(df, new_name) {
  names(df)[names(df) == "z"] <- new_name
  df
})
names(result_map2) <- c("df1", "df2", "df3")

方法3：dplyr+purrr简洁写法 #

如果习惯dplyr的语法，用rename()函数结合map2()更直观：

library(purrr)
library(dplyr)

columns <- c("A", "B", "C")
result_dplyr <- map2(lst, columns, ~rename(.x, !!sym(.y) := z))
names(result_dplyr) <- c("df1", "df2", "df3")

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