如何使用purrr::map批量重命名多个DataFrame的列名？

你的代码出错的核心原因：传给purrr::map的是数据框的名字字符串，而非数据框对象本身，而changenames函数需要操作的是数据框，自然会报错。

下面是两种可行的解决方法：

方法一：将数据框存入列表后处理（推荐） #

先把所有目标数据框放到一个列表里，直接对列表中的数据框对象进行操作：

# 创建数据框列表（两种写法任选其一）
# 写法1：手动列举
df_list <- list(newrow1, newrow2, newrow3, newrow4, newrow5, newrow6, newrow7, newrow8, newrow9)
# 写法2：通过变量名批量获取（更简洁）
df_list <- mget(paste0("newrow", 1:9))

# 批量重命名列名
renamed_dfs <- purrr::map(df_list, changenames)

执行后，renamed_dfs是一个列表，每个元素是重命名后的DataFrame。如果需要将结果重新赋值回原变量名，可使用list2env：

list2env(renamed_dfs, envir = .GlobalEnv)

方法二：修改函数以支持字符串变量名 #

如果坚持要通过变量名字符串处理，可修改changenames函数，让它先根据字符串找到对应的DataFrame对象：

changenames <- function(x) {
  # 根据变量名获取全局环境中的数据框
  df <- get(x, envir = .GlobalEnv)
  names(df) <- c("row","n_1","n_2","n_3","pct_1","pct_2","pct_3")
  return(df)
}

# 批量处理并将结果放回原变量
renamed_dfs <- purrr::map(df_names, changenames)
list2env(setNames(renamed_dfs, df_names), envir = .GlobalEnv)

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