如何将R语言迭代函数的每次迭代结果保存至全局环境？

问题分析 #

原代码里的output[i] <- tidy(fct3)无法正确存储tidy()返回的结果（通常是数据框/tibble），因为向量output仅能存储单一类型的标量值。要将每次迭代的结果保存为全局环境中的独立对象，推荐以下两种实用方法：

方法1：用assign()直接创建命名对象 #

在循环中根据年份为结果命名，直接存入全局环境，同时简化原代码中input_file的判断逻辑，让年份与文件对应更直观：

years <- c(2018, 2019)

for (year in years) {
  # 直接根据年份生成文件名，替代原有if-else逻辑
  input_file <- paste0("excelsheet ", year, ".xlsx")
  
  fct1 <- read_excel(input_file)
  fct2 <- read_cols(input_file)
  fct3 <- read_data(input_file)
  
  # 生成自定义对象名，比如output_2018、output_2019
  obj_name <- paste0("output_", year)
  # 将tidy结果存入全局环境的对应对象
  assign(obj_name, tidy(fct3), envir = .GlobalEnv)
}

如果原代码中i=1对应2019文件的逻辑是刻意设定（比如文件命名与年份错位），可以调整为明确的映射关系保留原有逻辑：

years <- c(2018, 2019)
# 明确年份与文件的对应关系
file_map <- c("2019" = "excelsheet 2019.xlsx", "2018" = "excelsheet 2018.xlsx")

for (year in years) {
  input_file <- file_map[as.character(year)]
  
  fct1 <- read_excel(input_file)
  fct2 <- read_cols(input_file)
  fct3 <- read_data(input_file)
  
  obj_name <- paste0("output_", year)
  assign(obj_name, tidy(fct3), envir = .GlobalEnv)
}

方法2：先存入列表，再批量导出到全局环境 #

这种方式更便于批量管理所有迭代结果，后续也能灵活处理：

years <- c(2018, 2019)
# 初始化空列表存储结果
output_list <- list()

for (year in years) {
  input_file <- paste0("excelsheet ", year, ".xlsx")
  
  fct1 <- read_excel(input_file)
  fct2 <- read_cols(input_file)
  fct3 <- read_data(input_file)
  
  # 将结果存入列表，用年份作为元素名称
  output_list[[as.character(year)]] <- tidy(fct3)
}

# 将列表中的每个元素导出为全局环境的独立对象
list2env(output_list, envir = .GlobalEnv)

执行后，全局环境中会生成2018和2019（或自定义命名）的对象，分别存储对应年份的tidy处理结果。

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