如何用lapply将数据框列名改为对应数据框变量名？

当你用lapply(list(df1, df2), nameChange)时，substitute(x)捕获的是lapply循环过程中的临时变量（比如x[[1]]、x[[2]]），而非原始的df1、df2变量名。因为列表里的元素是数据框的副本，已经和原始变量名解绑，substitute无法追溯到最初的变量名。

方案1：命名列表+遍历列表名 #

将数据框存入命名列表，通过遍历列表名来获取原始变量名，同时对应修改数据框列名：

df1 = data.frame("a" = c(1,2,3), "b" = c(4,5,6))
df2 = data.frame("a" = c(1,2,3), "b" = c(4,5,6))

# 创建带原始变量名的命名列表
df_list <- list(df1 = df1, df2 = df2)

nameChange <- function(df_name, df_list){
  df <- df_list[[df_name]]
  colnames(df)[2] <- df_name
  return(df)
}

# 遍历列表名处理数据框
result <- lapply(names(df_list), nameChange, df_list = df_list)
# 给结果命名，方便后续调用
names(result) <- names(df_list)

# 验证结果
head(result$df1)
head(result$df2)

方案2：mapply同时传递数据框和变量名 #

直接将变量名向量与数据框列表传入mapply，让函数同时接收数据和对应的名称：

df1 = data.frame("a" = c(1,2,3), "b" = c(4,5,6))
df2 = data.frame("a" = c(1,2,3), "b" = c(4,5,6))

nameChange <- function(df, name){
  colnames(df)[2] <- name
  return(df)
}

# 准备变量名和数据框列表
df_names <- c("df1", "df2")
df_list <- list(df1, df2)

# 批量处理，SIMPLIFY=FALSE保证返回列表
result <- mapply(nameChange, df_list, df_names, SIMPLIFY = FALSE)
names(result) <- df_names

# 验证结果
head(result$df1)
head(result$df2)

方案3：环境匹配变量名（不推荐） #

通过在全局环境中匹配数据框内容来反向获取变量名，这种方法依赖全局环境，代码健壮性差，仅作参考：

df1 = data.frame("a" = c(1,2,3), "b" = c(4,5,6))
df2 = data.frame("a" = c(1,2,3), "b" = c(4,5,6))

nameChange <- function(x){
  # 在全局环境中查找与x内容完全匹配的变量
  env <- globalenv()
  name <- Filter(function(n) identical(get(n, env), x), ls(env))[1]
  colnames(x)[2] <- name
  return(x)
}

result <- lapply(list(df1, df2), nameChange)
head(result[[1]])

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