R语言中如何在列表的多个数据框上循环执行代码/函数并更新数据框？

我来帮你捋捋这个问题哈～你遇到的核心问题是：assign()在匿名函数里默认只会修改局部环境的对象，而不是全局环境里的，所以你虽然在控制台能看到结果，但全局里的数据框根本没被更新。下面给你几个靠谱的解决方案：

方案1：用list2env批量更新全局环境（推荐） #

这种方法更符合R的函数式编程思路，先批量处理数据框，再把结果放回全局环境：

情况A：你的List是数据框名称的字符向量（比如List <- c("df1", "df2", "df3")） #

# 批量读取并处理数据框
updated_dfs <- lapply(List, function(df_name) {
  get(df_name) %>% 
    mutate(col_new = sprintf('%03s', substring(col1, nchar(col1) - 2)))
})
# 把处理后的结果映射回全局环境的对应数据框
list2env(updated_dfs, envir = .GlobalEnv)

情况B：你的List本身就是数据框的列表（比如List <- list(df1, df2, df3)） #

先给列表命名（对应数据框的名称），再处理：

# 给列表中的数据框命名（要和全局环境里的名称一致）
names(List) <- c("df1", "df2", "df3")
# 批量处理
updated_dfs <- lapply(List, function(df) {
  df %>% 
    mutate(col_new = sprintf('%03s', substring(col1, nchar(col1) - 2)))
})
# 放回全局环境
list2env(updated_dfs, envir = .GlobalEnv)

方案2：给assign()指定全局环境 #

如果你一定要用原来的assign思路，只需要给assign加上envir = .GlobalEnv参数，强制它修改全局环境的对象：

lapply(List, function(x) {
  assign(
    x, 
    get(x) %>% mutate(col_new = sprintf('%03s', substring(col1, nchar(col1) - 2))),
    envir = .GlobalEnv  # 关键：指定全局环境
  )
})

小建议 #

其实更推荐你把所有数据框放在一个列表里统一管理，不要分散成单个全局对象——这样后续的筛选、处理、导出都会更方便，也不容易出现环境变量混乱的问题～

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