如何在ggplot网格中将图例设置为独立图形？

我正在用R绘制3个带有通用图例的散点图，想要把图例设置为独立的图形元素，目前的代码如下：

library(ggplot2)
library(gridGraphics)
plot_grid(lymph_plot, imm_plot, fibro_plot, labels = c("A", "B", "C"), ncol = 3, nro1 = 1)

已解决该问题，感谢Melissa Key的帮助。具体做法是从最后一个散点图中提取图例，隐藏该图自身的图例，再将提取出的图例作为绘图网格的最后一个元素加入布局，代码如下：

# 从fibro_plot中提取图例
legend <- cowplot::get_legend(fibro_plot)

# 隐藏fibro_plot的图例
fibro_plot <- fibro_plot + theme(legend.position = "none")

# 将三个图和图例按一行排列，调整图例宽度占比
plot_grid(lymph_plot, imm_plot, fibro_plot, legend, labels = c("A", "B", "C"), 
          rel_widths = c(1, 1, 1, 1/3), ncol = 4, nrow = 1)

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