如何在R中对连续命名的文件/对象用循环简化重复代码？

针对这类重复代码问题，用循环+列表是最简洁且易维护的方式，避免手动创建大量后缀带数字的零散变量。以下是对应三个场景的具体简化方案：

1. 批量读取栅格文件 #

原重复代码：

agri1 <-  raster("p1_agri.tif")
agri2 <-  raster("p2_agri.tif")
agri3 <-  raster("p3_agri.tif")
agri4 <-  raster("p4_agri.tif")
agri5 <-  raster("p5_agri.tif")
agri6 <-  raster("p6_agri.tif")

简化后：

# 批量生成文件名
file_paths <- paste0("p", 1:6, "_agri.tif")
# 用lapply批量读取，结果存入列表
agri_list <- lapply(file_paths, raster)
# 给列表元素命名（可选，方便后续按名称调用）
names(agri_list) <- paste0("agri", 1:6)

后续调用单个栅格对象可使用agri_list$agri1或agri_list[[1]]，比零散变量更易统一管理。

2. 批量转换为数据框 #

原重复代码：

pas1 <- as.data.frame(pas1)
pas2 <- as.data.frame(pas2)
pas3 <- as.data.frame(pas3)
pas4 <- as.data.frame(pas4)
pas5 <- as.data.frame(pas5)
pas6 <- as.data.frame(pas6)

如果pas1到pas6已存在于全局环境，可通过循环批量处理：

# 生成目标变量名序列
pas_names <- paste0("pas", 1:6)
# 遍历变量名，转换后重新赋值到全局环境
for (name in pas_names) {
  obj <- get(name)
  assign(name, as.data.frame(obj))
}

更推荐的做法是先把对象整理成列表，再批量处理：

# 将零散的pas对象整合为列表
pas_list <- mget(pas_names)
# 批量转换为数据框
pas_list <- lapply(pas_list, as.data.frame)
# 若需要将结果放回全局环境（可选）
list2env(pas_list, envir = .GlobalEnv)

3. 批量拟合GLM模型 #

原重复代码：

apglm1 <- glm(test~agri+post,family="binomial",data=alldata1)
apglm2 <- glm(test~agri+post,family="binomial",data=alldata2)
apglm3 <- glm(test~agri+post,family="binomial",data=alldata3)
apglm4 <- glm(test~agri+post,family="binomial",data=alldata4)
apglm5 <- glm(test~agri+post,family="binomial",data=alldata5)
apglm6 <- glm(test~agri+post,family="binomial",data=alldata6)

简化后用列表批量处理：

# 生成数据集名称序列
data_names <- paste0("alldata", 1:6)
# 批量获取数据集并拟合模型
apglm_list <- lapply(data_names, function(name) {
  dat <- get(name)
  glm(test~agri+post, family="binomial", data=dat)
})
# 给模型列表命名
names(apglm_list) <- paste0("apglm", 1:6)

后续查看单个模型可使用apglm_list$apglm1，批量提取结果（如模型系数）也更便捷，例如lapply(apglm_list, coef)。

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