R语言使用for循环批量绘图需手动重复执行的问题排查

你遇到的现象不是代码逻辑错误，也不是R或RStudio的bug，核心有两点：

• RStudio默认绘图面板会用新生成的图覆盖上一张图，你看到的「只生成1张图」实际上是后续循环生成的图把前面的图覆盖了，并不是循环没运行
• 你用Job_Proficiency[i]取子集返回的是单列tibble，虽然car::Boxplot可以兼容，但更稳妥的写法是用[[i]]提取对应列的向量，避免S3方法适配问题

下面提供3种常用的修复方案，可根据你的需求选择：

方案1：所有箱线图排列在同一画布 #

执行一次循环即可在同一页显示全部5张图，适合快速预览：

library(car)
# 设置画布布局：1行5列，可根据需求调整为2行3列等参数
par(mfrow = c(1, 5))
for (i in seq_along(Job_Proficiency)){
  Boxplot(
    y = Job_Proficiency[[i]], 
    xlab = names(Job_Proficiency)[i],
    main = paste("变量：", names(Job_Proficiency)[i])
  )
}
# 绘图完成后重置画布参数，避免影响后续绘图
par(mfrow = c(1, 1))

方案2：自动导出所有图到本地文件夹 #

所有图会自动保存到指定文件夹，不会被覆盖，适合需要留存输出结果的场景：

library(car)
# 自动创建存图文件夹，无需手动新建
if(!dir.exists("箱线图输出")) dir.create("箱线图输出")

for (i in seq_along(Job_Proficiency)){
  # 新建png画布，指定保存路径和尺寸
  png(
    file.path("箱线图输出", paste0(names(Job_Proficiency)[i], "_箱线图.png")),
    width = 600, 
    height = 400
  )
  Boxplot(
    y = Job_Proficiency[[i]], 
    xlab = names(Job_Proficiency)[i]
  )
  # 关闭画布完成保存
  dev.off()
}

运行完成后到R当前工作目录的箱线图输出文件夹即可找到全部图片。

方案3：每张图生成独立绘图窗口 #

适合需要单独查看、调整每一张图的场景，会弹出多个独立绘图窗口：

library(car)
for (i in seq_along(Job_Proficiency)){
  # 每次循环新建独立绘图窗口
  dev.new()
  Boxplot(
    y = Job_Proficiency[[i]], 
    xlab = names(Job_Proficiency)[i]
  )
}

内容的提问来源于stack exchange，提问作者D.C. the III