如何以3×3矩阵形式展示多个ggplots？问题排查与解决

• par(mfrow) 和 layout() 是base R绘图系统的布局控制函数，而你通过geom_point()+geom_smooth()生成的是ggplot2对象，属于grid绘图系统，两个系统的布局逻辑不兼容，因此这两种方法无法控制ggplot图的排列，导致图只能逐个单独显示。

下面提供几种实现3×3网格布局的常用方案：

方法1：使用patchwork包（推荐，语法简洁） #

patchwork是专门为组合ggplot图设计的工具，用法直观灵活：

# 首次使用先安装包
install.packages("patchwork")
library(patchwork)

# 将9个图组合为3×3网格
myplots[[1]] + myplots[[2]] + myplots[[3]] +
  myplots[[4]] + myplots[[5]] + myplots[[6]] +
  myplots[[7]] + myplots[[8]] + myplots[[9]] +
  plot_layout(ncol = 3, nrow = 3)

方法2：使用gridExtra包的grid.arrange() #

gridExtra是经典的ggplot图组合工具，适合批量传入多个图对象：

# 首次使用先安装包
install.packages("gridExtra")
library(gridExtra)

# 一次性传入所有图并指定行列数
do.call(grid.arrange, c(myplots, ncol=3, nrow=3))

方法3：重构数据用facet_wrap/facet_grid（更优雅，适合同结构图表） #

如果你的9个图是基于同一数据集的不同分组生成的，建议直接重构数据，用ggplot原生的分面功能，无需先生成9个单独的图：

# 假设数据按group列分为9组，直接一次绘图实现分面
ggplot(data = your_raw_data, aes(x = x_variable, y = y_variable)) +
  geom_point() +
  geom_smooth() +
  facet_wrap(~group, ncol=3, nrow=3)
# 若需要更严格的行列对应关系，可改用facet_grid
# facet_grid(rows = ~row_group, cols = ~col_group)

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