ggplot中加号干扰for循环致PDF空白，求修复方案

核心问题原因 #

1. ggplot在非交互环境需显式打印：ggplot对象在控制台交互时会自动渲染，但在循环、函数等场景下，必须调用print()才能输出到PDF设备，这是和基础绘图包的关键区别。
2. 列名提取错误：原代码colnames(Dat.Db[i])写法错误，应改为colnames(Dat.Db)[i]才能正确获取第i列的列名。
3. aes列引用的环境问题：直接在aes中写y = Dat.Db[,i]可能导致数据绑定异常，推荐用tidyverse标准的.data[[i]]方式引用列。
4. par()对ggplot无效：ggplot基于grid绘图系统，不识别基础绘图的par()布局参数，需用专门的图形组合工具实现多图同页。

基础修复代码（先解决空白问题） #

如果不需要同页布局，仅让ggplot正常输出，修改如下：

library(ggplot2)

for (i in 2:ncol(Dat.Db)){ 
  VarNAME <- colnames(Dat.Db)[i] # 修正列名提取
  pdf(file = paste0(VarNAME,".pdf"), height=8, width=8) 

  # 生成ggplot箱线图
  p <- ggplot(Dat.Db, aes(x = Strat_Sym, y = .data[[i]], fill = Strat_Sym)) +
    stat_boxplot(geom = "errorbar", width = 0.25) +
    geom_boxplot() +
    theme(axis.text.x = element_text(angle = -90, vjust = 0.5, hjust=0)) +
    labs(y = VarNAME) # 添加y轴标签，提升可读性
  
  print(p) # 关键：显式打印ggplot对象

  # 基础绘图箱线图（正常运行）
  boxplot(Dat.Db[,i]~ Strat_Sym, Dat.Db)

  dev.off() 
}

完整修复代码（含同页双图布局） #

如果需要将两个图放在同一PDF页面的上下位置，使用patchwork包实现布局：

library(ggplot2)
library(patchwork) # 需先安装：install.packages("patchwork")
library(grid)

for (i in 2:ncol(Dat.Db)){ 
  VarNAME <- colnames(Dat.Db)[i]
  pdf(file = paste0(VarNAME,".pdf"), height=8, width=8) 

  # 生成ggplot2箱线图
  gg_plot <- ggplot(Dat.Db, aes(x = Strat_Sym, y = .data[[i]], fill = Strat_Sym)) +
    stat_boxplot(geom = "errorbar", width = 0.25) +
    geom_boxplot() +
    theme(axis.text.x = element_text(angle = -90, vjust = 0.5, hjust=0)) +
    labs(y = VarNAME, title = "ggplot2 箱线图")

  # 捕获基础绘图的箱线图内容
  plot.new()
  boxplot(Dat.Db[,i]~ Strat_Sym, Dat.Db, main = "基础绘图箱线图")
  base_plot <- grid.grab()

  # 组合为2行1列布局
  combined_plot <- gg_plot / wrap_elements(base_plot)

  # 打印组合图
  print(combined_plot)

  dev.off() 
}

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