如何遍历列表为每个元素赋值并执行R脚本？解决循环报错

你的核心需求很清晰：遍历一个球队代码列表，把每个代码传入team-plots.R脚本执行，同时脚本会根据team_focus变量设置专属工作目录。先拆解下你之前循环的问题，再给你靠谱的实现方案：

之前循环的错误原因 #

• 第一个循环里的i %>% source("~/Documents/team-plots.R", echo = TRUE)完全用错了管道逻辑：%>%会把i传给source的第一个参数，但source的第一个参数要求是脚本文件路径，不是要传递的变量。这就导致R把i当成了文件路径，又把脚本路径误判为local参数，直接触发了'local' must be TRUE, FALSE or an environment的报错。
• 第二个循环的assign(team_focus, i)搞反了参数顺序：assign的第一个参数是变量名（字符串），第二个才是赋值内容，而且就算改对了，也没把变量传递到source脚本的执行环境里，等于白忙活。

正确的实现方式 #

要让team-plots.R能读取到每次循环的team_focus，有两种实用方法：

方法1：直接在当前环境赋值（简单直观）

source默认会在当前执行环境读取变量，所以你只需要在每次循环里给team_focus赋值，再调用脚本就行：

# 先定义你的球队列表
teams <- c("SF", "ARI", "CHI", "DET", "CLE", "BAL", "LA", "DAL", "GB", "MIN", 
           "HOU", "KC", "IND", "JAX", "CIN", "LAC", "LV", "CAR", "MIA", "NE", 
           "NYJ", "BUF", "WAS", "PHI", "NYG", "PIT", "ATL", "SEA", "NO", "TB", 
           "TEN", "DEN")

# 正确的循环逻辑
for (team in teams) {
  # 给脚本需要的变量赋值
  team_focus <- team
  # 执行脚本，默认在当前环境读取team_focus
  source("~/Documents/team-plots.R", echo = TRUE)
}

方法2：用临时环境传递参数（更严谨，不污染全局环境）

如果不想让team_focus留在全局环境里，可以创建临时环境，把变量放进其中，再让source在这个环境里执行：

for (team in teams) {
  # 创建一个临时环境
  temp_env <- new.env()
  # 在临时环境中赋值team_focus
  temp_env$team_focus <- team
  # 指定source在临时环境中执行脚本
  source("~/Documents/team-plots.R", echo = TRUE, local = temp_env)
}

关于脚本中工作目录的优化建议 #

你的脚本里用setwd(paste(saveto))有一定风险——如果某次循环的目录创建失败，后续操作都会因为工作目录错误出问题。建议改成直接使用完整路径+确保目录存在的写法，避免依赖setwd：

# 替换脚本里的路径设置代码
saveto <- file.path("~/Documents/nfl/week 12", team_focus)
# 自动创建目录（如果不存在的话），recursive=TRUE会自动创建父目录
dir.create(saveto, recursive = TRUE, showWarnings = FALSE)
# 后续保存文件时直接用完整路径，比如：
# ggplot(...) + ggsave(file.path(saveto, "team_plot.png"))

这样不管工作目录怎么变，文件都能准确保存到目标位置。

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