如何从cowplot::plot_grid合并图形中提取单个ggplot对象

当你拿到由cowplot::plot_grid()生成的组合ggplot对象时，无法直接获取原始的单个ggplot对象——因为plot_grid()已经将子图转换为底层图形对象（grob）进行组合。不过可以通过以下方法提取子图并使用：

方法1：提取子图grob并直接使用 #

如果只需要显示或保存单个子图，不需要修改其ggplot语法，可以直接提取对应的grob：

library(grid)
library(cowplot)

# 提取第二个子图的grob（对应示例中的p2）
p2_grob <- p$layers[[2]]$geom_params$grob

# 绘制子图
grid.draw(p2_grob)

# 或者包装为ggplot对象，方便用ggplot2的保存方法（如ggsave）
p2_gg <- ggdraw(p2_grob)
print(p2_gg)

方法2：从gtable中提取子图 #

也可以先将组合图转换为gtable，再定位并提取子图：

library(grid)

# 将组合ggplot转换为gtable
gt <- ggplotGrob(p)

# 查找第二个子图对应的grob（示例中为1行2列布局，对应名称panel-1-2）
p2_grob <- gt$grobs[gt$layout$name == "panel-1-2"][[1]]

# 绘制子图
grid.draw(p2_grob)

注意：无法直接恢复原始ggplot对象 #

由于plot_grid()在组合时会将原始ggplot对象转换为grob，原始的ggplot语法信息（如图层定义、映射规则、主题设置等）已经被转换为底层图形元素，无法直接还原出完整的原始ggplot对象。如果需要修改子图，只能从提取的grob中提取数据和视觉属性，重新构建ggplot：

# 从grob中提取数据
p2_data <- p$layers[[2]]$geom_params$grob$data

# 重新构建ggplot（根据原始图的映射和图层）
p2_rebuilt <- ggplot(p2_data, aes(Sepal.Length, Petal.Width, col = Species)) +
  geom_point() +
  theme_bw() # 匹配原始图的主题，需根据实际情况调整

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