使用cowplot提取图例失败的问题排查与解决

你遇到的zeroGrob[NULL]是因为cowplot::get_legend()没有从图形对象中识别到有效的图例元素，核心原因是错误地将show.legend参数放在ggplot()函数中——ggplot()本身没有这个参数，它属于几何图层（如geom_bar()）的专属参数。虽然单独显示子图时图例能正常显示，但这种错误的参数位置会干扰cowplot提取图例的底层逻辑。

步骤1：修正图层参数，确保图例正确生成 #

将show.legend = TRUE移至geom_bar()中，同时简化图例标签设置（因标签与原类别一致，可省略labels参数）：

colors = c("s" = "black", "n" = "red", "f" = "blue")

pl1 = ggplot(data = df, aes(x = as.factor(x), y = z1, fill = y)) +
  geom_bar(stat = "identity", position = "dodge", width = 1, show.legend = TRUE) +
  scale_fill_manual(values = colors, name = "label:") +
  theme_bw() +
  theme(legend.position = "bottom")

pl2 = ggplot(data = df, aes(x = as.factor(x), y = z2, fill = y)) +
  geom_bar(stat = "identity", position = "dodge", width = 1, show.legend = TRUE) +
  scale_fill_manual(values = colors, name = "label:") +
  theme_bw() +
  theme(legend.position = "bottom")

步骤2：正确提取并合并图例 #

修正后get_legend()可正常识别图例对象，后续合并逻辑保持不变：

combined_legend <- cowplot::get_legend(pl1 + theme(legend.text=element_text(size=14)))

final_plot = cowplot::plot_grid(
  pl1 + theme(legend.position = "none"),
  pl2 + theme(legend.position = "none"),
  nrow = 1,  
  align = "h",  
  axis = "tb"  
)

plot = cowplot::plot_grid(
  final_plot,
  combined_legend,
  ncol = 1,
  rel_heights = c(3, 0.5)
)

# 查看最终合并图形
plot

替代方案：用patchwork包简化合并流程 #

如果允许使用patchwork包，代码会更简洁，可自动处理共用图例：

library(patchwork)

# 创建不带图例的子图
pl1_noleg <- pl1 + theme(legend.position = "none")
pl2_noleg <- pl2 + theme(legend.position = "none")

# 合并图形并收集共用图例
(pl1_noleg | pl2_noleg) + plot_layout(guides = "collect") & theme(legend.position = "bottom")

修正后combined_legend会正确返回图例对象，不再输出zeroGrob[NULL]，最终合并的图形将显示位于底部的共用图例。

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