如何通过循环调用list.files创建对应模型名的R语言对象？

你的原循环失败的原因是：在循环中直接给变量i赋值，只会覆盖循环迭代的临时变量，无法创建以模型名称命名的独立对象。下面提供两种可行的解决方案：

方法一：使用assign()函数修复for循环 #

assign()函数支持通过字符串指定变量名来创建对象，完美匹配你的需求：

models <- c("rf", "brt", "gam", "glm",
            "mars", "bart", "svm")

for (model_name in models) {
  # 以模型名称为变量名，存储对应文件夹的tif文件路径
  assign(model_name, 
         list.files(paste0("results/", model_name, "/rasters/"),
                    pattern = "tif$",
                    full.names = TRUE))
}

执行后，你会得到rf、brt等多个独立对象，每个对象对应其模型文件夹下的tif文件路径列表。

方法二：使用sapply()创建命名列表（推荐） #

如果不想让工作区充斥过多独立变量，使用命名列表管理所有模型的文件路径会更整洁。若后续需要单独对象，也可以从列表转换：

步骤1：创建命名列表 #

models <- c("rf", "brt", "gam", "glm",
            "mars", "bart", "svm")

# 生成以模型名为键的列表，每个元素对应tif文件路径
model_file_list <- sapply(models, function(x) {
  list.files(paste0("results/", x, "/rasters/"),
             pattern = "tif$",
             full.names = TRUE)
}, simplify = FALSE)

此时你可以通过model_file_list$rf、model_file_list$brt等方式快速访问每个模型的文件路径。

步骤2：（可选）将列表转换为独立对象 #

如果确实需要生成单独的对象，使用list2env()将列表元素导出到全局环境：

list2env(model_file_list, envir = .GlobalEnv)

执行后会生成rf、brt等独立对象，效果与方法一完全一致。

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