如何在group_split后自动为拆分后的数据集分配新变量？

需求描述 #

按year或year+sector变量拆分DataFrame，用group_split完成拆分后，希望直接通过自定义命名的变量（如year_2014）访问子数据集，无需每次使用$调用，避免手动命名70+分组的繁琐操作。

现有按year分组的代码：

dummy <- data.frame(year = rep(2014:2020, 12),
                    sector = rep(c("auto","retail","sales","medical"),3),
                    emp = sample(1:2000, size = 84))

dummy%>%
    group_by(year)%>%
    group_split(year)%>%
    set_names(nm = unique(dummy$year)) -> dummy_year

# 当前调用方式
head(dummy_year$2014)

期望实现的调用方式：

# 执行自动命名操作后
head(year_2014)

解决方案 #

方法1：for循环实现 #

遍历命名后的分组列表，用assign()函数将每个子数据集赋值到全局环境，自定义变量名格式：

# 确保分组列表的名称为年份值
names(dummy_year) <- unique(dummy$year)

# 循环生成并赋值变量
for (year_name in names(dummy_year)) {
  # 构造目标变量名，例如year_2014
  var_name <- paste0("year_", year_name)
  # 将子数据集赋值到全局环境
  assign(var_name, dummy_year[[year_name]], envir = .GlobalEnv)
}

# 直接调用验证
head(year_2014)

方法2：用list2env()简化操作 #

list2env()可以直接将列表元素转换为环境变量，代码更简洁高效：

# 先将分组列表的名称修改为目标变量名格式
dummy_year_named <- set_names(dummy_year, paste0("year_", names(dummy_year)))

# 将列表元素批量转为全局环境变量
list2env(dummy_year_named, envir = .GlobalEnv)

# 直接调用验证
head(year_2014)

扩展：按year+sector双变量分组的情况 #

如果需要按两个变量拆分并生成如2014_auto的变量名，只需调整分组和命名逻辑：

# 按year和sector双变量分组拆分
dummy_year_sector <- dummy %>%
  group_by(year, sector) %>%
  group_split() %>%
  # 生成year_sector格式的名称
  set_names(paste0(unique(dummy$year), "_", rep(unique(dummy$sector), each=7)))

# 批量赋值到全局环境
list2env(dummy_year_sector, .GlobalEnv)

# 调用验证（注意变量名含数字开头，需用反引号包裹）
head(`2014_auto`)

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