ggplot2 3.5.0版本下cowplot包get_legend()函数失效求助

针对你遇到的cowplot get_legend()在ggplot2 3.5.0中失效的问题，以下是几种可行的解决办法：

方法1：修复cowplot相关调用逻辑 #

由于ggplot2 3.5.0中get_plot_component()返回的是组件列表，你需要手动取出列表中的图例元素再传入ggdraw()：

library(cowplot)
# 获取所有guide-box组件，取第一个图例元素
legend_grob <- get_plot_component(plot, 'guide-box', return_all = TRUE)[[1]]
# 绘制图例
ggdraw(legend_grob)

方法2：使用ggplot2原生语法构建仅显示图例的图形 #

通过修改原绘图的主题，只保留图例部分：

library(ggplot2)
library(cowplot)
# 创建仅显示图例的绘图对象
legend_plot <- plot +
  theme(
    plot.background = element_blank(),
    panel.background = element_blank(),
    axis.text = element_blank(),
    axis.title = element_blank(),
    axis.ticks = element_blank(),
    panel.grid = element_blank(),
    plot.margin = margin(0, 0, 0, 0) # 去除多余边距
  )
# 绘制图例
ggdraw(legend_plot)

方法3：使用patchwork包的get_legend()函数 #

patchwork包的get_legend()函数已适配ggplot2 3.5.0的更新，可直接使用：

library(patchwork)
# 提取图例
legend_grob <- get_legend(plot)
# 绘制图例（可直接用print，或结合cowplot的ggdraw）
print(legend_grob)
# 或者用ggdraw
library(cowplot)
ggdraw(legend_grob)

补充说明 #

ggplot2 3.5.0对绘图组件的结构做了调整，原cowplot的get_legend()内部调用的get_plot_component()现在会返回多个组件，导致直接调用返回空值。上述方法都是针对新的组件结构做的适配。

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