比如这个普普通通的柱状图: 其实它本来是这个样子的: 我们可以使用plot_layout 对patchwork 拼图后的内容统一设置图例: p <- wrap_plots(p2, p1, nrow = 2, heights = c(1, 11)) p <- p + plot_layout(guides = 'collect')p