R 如何编辑循环ggplot代码以生成面板打印？

我使用ggplot代码的循环位（如下）生成了大量绘图，并将其作为离散图像保存到磁盘。我想制作面板图，将其中几个图像作为一个整体显示

如果我手工绘制这些图，我会给它们命名，然后调用par（mf）或类似的方法来根据需要进行布局。然而，我找不到在我的循环内（或之后）工作的替代方案

*

---

图形您可以使用
网格。排列
。也许你可以看看这个网站：

参见本指南：同时检查ggplot的
facet\u wrap（）
和
facet\u grid（）
选项。非常方便。
 graph <- function(MONTH_13, na.rm=TRUE) {
  SITE_LIST <- unique(MONTH_13$SITE_NUMB) 
  for(i in seq_along(SITE_LIST)){
    plotA <- ggplot(subset(MONTH_13, MONTH_13$SITE_NUMB==SITE_LIST[i]), aes(HR, OXYCONC, colour=VIAL_ID)) + 
      geom_point(size=2) + 
      geom_smooth(method="lm", se= FALSE)+
      labs(x="HR", y="OXY") + 
      labs(title= SITE_LIST[i]) + 
      theme(legend.position="top") +
      scale_color_brewer(name="VIAL #", palette="Dark2") + 
      ylim(0, 400) + 
      xlim(0, 200) 
    ggsave(plotA, file=paste('/Users/stafel/Desktop/MONTH_13/Site_', SITE_LIST[i], ".png", sep=''), scale=2)
    print(plotA)}}
graph(MONTH_13)