如何在ggplot2中批量绘制多幅图（不使用facets，替代par(mfrow)）

ggplot2本身没有像Base绘图系统里par(mfrow)那样直接的布局控制函数，但我们可以借助专门的拼图包轻松实现这个需求，比如patchwork（简洁易用）或者gridExtra。下面是针对你的代码的具体改造方案：

步骤1：加载必要的包 #

首先确保你安装并加载了ggplot2和拼图包，这里以patchwork为例：

install.packages("ggplot2")
install.packages("patchwork") # 如果没安装的话先执行这行
library(ggplot2)
library(patchwork)

步骤2：优化绘图函数（可选但推荐） #

我给你的函数做了一点小调整，比如给两条正态曲线加颜色区分、调整标注位置避免被截断、添加标题显示当前的mua值，让图更清晰易读：

g <- function(mua=1.2){ 
  mu0=0 
  ggplot(data.frame(x=c(-4.5, 4.5)), aes(x) ) + 
    # 给mu0的曲线加蓝色，mua的曲线加深绿色，方便区分
    stat_function(fun=dnorm,args = list(mean=mu0), size = 1.5, color = "blue") + 
    stat_function(fun=dnorm,args = list(mean=mua), size = 1.5, color = "darkgreen") + 
    geom_area(stat = "function", fun = dnorm,args=list(mean=mua), fill = "red", xlim = c(qnorm(1-0.025,mean = mu0), 5), alpha = 0.4) + 
    # 调整标注的垂直位置，避免和x轴重叠
    annotate(geom = "text",x=mu0,y=0,label="mu0", vjust = 1.5) + 
    annotate(geom = "text",x=mua,y=0,label=paste0("mu_a = ", mua), vjust = 1.5) + 
    annotate(geom = "text",x=qnorm(1-0.025,mean = mu0), y=0,label=round(qnorm(1-0.025,mean = mu0),2), vjust = 1.5) +
    # 添加标题，明确当前图对应的mua值
    labs(title = paste0("Power: mu_a = ", mua)) +
    # 使用简洁的主题
    theme_bw()
}

步骤3：生成图列表并排版 #

用lapply替代原有的for循环（它会自动把每个生成的图存入列表，方便后续拼接），然后用wrap_plots实现类似par(mfrow)的布局：

# 定义mua的取值集合
mua_values <- seq(0, 2, by = 0.5)
# 循环生成所有图，存入列表
plot_list <- lapply(mua_values, g)

# 排版成2行3列（5幅图刚好填满），你也可以改成ncol=1, nrow=5实现垂直布局
wrap_plots(plot_list, ncol = 2, nrow = 3) + 
  plot_annotation(title = "Power Concept Visualization for Different mu_a Values")

备选方案：用gridExtra实现 #

如果你习惯用gridExtra，代码逻辑类似，只是最后用grid.arrange拼接：

install.packages("gridExtra")
library(gridExtra)

grid.arrange(grobs = plot_list, ncol = 2, nrow = 3, top = "Power Concept Visualization")

补充说明 #

你原来的for循环只是逐个打印单幅图，但不会把它们组合成一个整体布局。通过先将所有图存入列表，再用拼图工具排版，就能实现和par(mfrow)一样的多图展示效果啦。

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