使用ggarange（）时，隐藏绘图并仅显示特定绘图的图例

下面我创建了3个图。在前2个示例中，我只希望显示绘图，而不希望显示图例，而在第3个示例中，我只希望显示图例。我想把这三个元素结合在一起。但是，我没有在第三部中只看到传奇。我怎么做呢

可以为您聚合图例：

图书馆GGPLOT2 图书馆拼凑

---

我的历史如果我想将它与ggarange结合起来，以实现特定的方式来显示情节，该怎么办？什么方式？patchwork在它的习惯用法中可以做很多事情，而且由于它仍然在网格框架中工作，因此它有时可以与其他类似的包（如gridExtra和cowplot）进行互操作。尽管如此，为了你自己的理智，还是尽量保持简单；没有理由学习网格的复杂性来组合和注释两个图。

library(ggplot2) 
library(grid)
library(gridExtra) 

my_hist1 <- ggplot(diamonds, aes(clarity, fill = cut)) + 
  geom_bar() +theme(legend.position = "none")
my_hist2 <- ggplot(diamonds, aes(clarity, fill = cut)) + 
  geom_bar() +theme(legend.position = "none")
my_hist3 <- ggplot(diamonds, aes(clarity, fill = cut)) + 
  geom_bar() 

# Using the cowplot package
legend <- cowplot::get_legend(my_hist3)

grid.newpage()
grid.draw(legend)

ggarrange(my_hist1,my_hist2,grid.draw(legend) + rremove("x.text"), 
          labels = c("1", "2", "Score.Type"),
          ncol = 3, nrow = 1)