如何将含多个tibble的列表拆分为不同数据框并重命名？

你的原始代码存在两处核心问题：

• 循环里错误调用list2env(old_list, envir = .GlobalEnv)，这会把整个原列表的所有元素直接导入全局环境（生成a和b），而非单独提取当前循环的目标元素
• 错误将list2env的结果赋值给new列表，完全偏离了生成带后缀独立数据框的目标

方法1：Base R 无循环实现 #

通过重命名列表后一次性导出，代码简洁高效：

# 生成带_new后缀的新名称
new_names <- paste0(names(old_list), "_new")
# 给原列表的元素替换成新名称
names(old_list) <- new_names
# 将重命名后的列表元素导出到全局环境
list2env(old_list, envir = .GlobalEnv)

执行后全局环境会直接生成a_new和b_new两个独立数据框。

方法2：tidyverse 风格实现 #

用purrr包的遍历函数完成，更贴合tidyverse用户习惯：

library(purrr)
library(tibble)

# 遍历列表，给每个元素生成带后缀的名称并导出到全局环境
iwalk(old_list, ~ assign(paste0(.y, "_new"), .x, envir = .GlobalEnv))

• .x指代列表中的每个tibble元素
• .y指代元素对应的原始名称
• assign负责将元素以指定名称存入全局环境

正确的循环写法（如果需要） #

不是不能用循环，只是上述方法更符合R的向量式编程逻辑，若一定要写循环，正确写法如下：

for (name in names(old_list)) {
  new_name <- paste0(name, "_new")
  # 提取当前名称对应的tibble，以新名称存入全局环境
  assign(new_name, old_list[[name]], envir = .GlobalEnv)
}

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