如何为grid.arrange排列的9个ggplot2绘图添加共享图例

首先，咱们先解决单个绘图添加图例的核心问题——你之前的代码里，两个geom_point没有把形状（shape）映射到美学属性（aes），ggplot没法自动生成图例。只要把形状的区分逻辑放进aes里，再手动指定对应形状，就能轻松生成黑白风格的图例。

第一步：给单个绘图添加黑白图例 #

修改你的单图代码，把普通圆形点和特殊shape=42的点分别映射到不同的类别标签，再用scale_shape_manual指定对应形状（保持全黑，符合黑白风格）：

z <- 1:21

# 修改后的单图代码
PLOTPEARSON_MOD1 <- ggplot(data=df_MOD1, mapping=aes(x=z, y=PEARSONSCORRELATIONS_MOD1)) +
  geom_line() +
  # 普通圆形点：在aes里指定shape的类别标签
  geom_point(aes(shape="Regular Data Points"), col="black") +
  # 特殊点：同样在aes里指定shape的类别标签，同时设置坐标和大小
  geom_point(aes(x=11, y=PEARSON30_MOD1, shape="Highlighted Point"), col="black", size=7) +
  scale_x_continuous(name="", breaks=z, labels=PEARSONSCORRELATIONS2) +
  scale_y_continuous(name="", limits = c(-.1, 1), breaks=seq(-.1,1, by= .1 )) +
  # 手动匹配标签和对应的形状：圆形用16，特殊点用42
  scale_shape_manual(values=c("Regular Data Points"=16, "Highlighted Point"=42)) +
  theme_light() +
  theme(axis.text.x=element_text(angle=90, size=5)) +
  ggtitle ("Model 1") +
  # 设置图例标题，也可以留空
  labs(shape="Point Type")

运行这段代码，单个图就会出现黑白风格的图例，清晰区分两种点。

第二步：9个图合并并添加共享图例 #

这里推荐两种主流方案，选你顺手的就行：

方案1：用patchwork包（最简洁） #

patchwork是专门处理ggplot多图拼接的工具，收集共享图例的逻辑非常直观：

# 先安装并加载包
install.packages("patchwork")
library(patchwork)

# 假设你已经给9个图都加上了上述的shape映射（不需要每个图都显示图例）
combined_plot <- PLOTPEARSON_MOD1 + PLOTPEARSON_MOD4 + PLOTPEARSON_MOD7 +
  PLOTPEARSON_MOD2 + PLOTPEARSON_MOD5 + PLOTPEARSON_MOD8 +
  PLOTPEARSON_MOD3 + PLOTPEARSON_MOD6 + PLOTPEARSON_MOD9 +
  # 3行3列排列，同时收集所有图的图例合并成一个
  plot_layout(ncol=3, nrow=3, guides="collect") +
  # 添加整体标题
  plot_annotation(title="Overall Title")

# 可以把图例移到底部（更美观）
combined_plot <- combined_plot & theme(legend.position="bottom")

# 查看最终图
print(combined_plot)

方案2：用gridExtra包（兼容你原来的代码） #

如果你习惯用grid.arrange，可以先提取一个图的图例，再把9个图的图例隐藏后拼接：

library(gridExtra)

# 定义一个提取图例的小函数
get_shared_legend <- function(plot) {
  plot_table <- ggplot_gtable(ggplot_build(plot))
  legend_index <- which(sapply(plot_table$grobs, function(x) x$name) == "guide-box")
  return(plot_table$grobs[[legend_index]])
}

# 提取图例（从任意一个修改后的图里取）
shared_legend <- get_shared_legend(PLOTPEARSON_MOD1)

# 隐藏每个图的图例
plot1 <- PLOTPEARSON_MOD1 + theme(legend.position="none")
plot4 <- PLOTPEARSON_MOD4 + theme(legend.position="none")
plot7 <- PLOTPEARSON_MOD7 + theme(legend.position="none")
plot2 <- PLOTPEARSON_MOD2 + theme(legend.position="none")
plot5 <- PLOTPEARSON_MOD5 + theme(legend.position="none")
plot8 <- PLOTPEARSON_MOD8 + theme(legend.position="none")
plot3 <- PLOTPEARSON_MOD3 + theme(legend.position="none")
plot6 <- PLOTPEARSON_MOD6 + theme(legend.position="none")
plot9 <- PLOTPEARSON_MOD9 + theme(legend.position="none")

# 拼接图和图例：先排3x3的图，再把图例放在底部
grid.arrange(
  arrangeGrob(plot1, plot4, plot7, plot2, plot5, plot8, plot3, plot6, plot9, ncol=3, nrow=3),
  shared_legend,
  ncol=1,
  heights=c(9, 1), # 调整图和图例的高度比例
  top="Overall Title"
)

关键原理说明 #

ggplot生成图例的前提是：把需要区分的视觉属性（比如shape、color）放到aes()里，映射到某个类别变量。你之前的代码直接在geom_point里指定shape=42，没有进入美学映射逻辑，所以ggplot不会生成图例。只要把形状的区分逻辑放进aes，再手动指定对应形状，就能轻松得到你想要的黑白图例。

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