R语言如何自动将列表内所有数据框单独提取到运行环境

现有一个所有元素均为数据框的列表对象，需要自动提取列表内全部数据框，按规则自动命名后保存到当前R运行环境中。
测试列表构造代码如下：

d1 <- data.frame(x1 = c(1, 2, 3),
             y1 = c(4, 5, 6))
d2 <- data.frame(x2 = c(4, 5, 6),
             y2 = c(7, 8, 9))

mylist <- list()
mylist[[1]] <- d1
mylist[[2]] <- d2

最初尝试的循环代码无法运行，核心错误是：

• 代码中names是存储变量名字符串的向量，使用names[i] <- xxx赋值时，仅会修改names向量本身的元素内容，R不会自动将向量中存储的字符串解析为独立变量名完成赋值，因此根本不会在环境中创建对应的数据框变量。
  原有错误代码如下：

names <- paste0("mydata", 1:length(mylist))  # 生成目标数据框名称
for (i in 1:length(mylist)){
names[i] <- data.frame() # 初始化步骤逻辑错误
names[i] <- mylist[[i]]
}

方案1：原生函数最简实现（推荐） #

R内置的list2env()函数专门用于将列表元素批量导出到指定环境，无需手动写循环，代码最简洁：

# 给列表元素设置目标变量名
names(mylist) <- paste0("mydata", seq_along(mylist))
# 将命名后的列表元素批量写入当前全局环境
list2env(mylist, envir = .GlobalEnv)

运行后直接可以在环境中找到mydata1、mydata2两个独立数据框，内容和原列表对应元素完全一致。

方案2：循环动态赋值实现 #

如果需要自定义循环逻辑，可以使用assign()函数完成动态变量名赋值，该函数支持直接传入变量名字符串、待赋值内容、目标环境三个核心参数，实现动态创建变量：

# 生成目标变量名向量
df_names <- paste0("mydata", seq_along(mylist))
for (i in seq_along(mylist)){
  assign(
    x = df_names[i], # 变量名字符串
    value = mylist[[i]], # 要赋值的内容
    envir = .GlobalEnv # 赋值的目标环境，这里是当前全局运行环境
  )
}

注意：非必要不建议批量往全局环境写入大量独立变量，后续变量管理、批量计算的效率会更低，多数场景下直接操作带命名的列表，配合lapply、purrr::map等遍历函数处理数据会更顺畅。

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