R.Markdown中grid.arrange（）中两个ggplot的图例重叠

Question

grid.arrange（）中两个ggplot图中的图例重叠。我已经使用legend.positon =“ top”或“ bottom”，出现了另一个问题，即ggplot没有显示完整的图例。实际上，我的传说很长。如何将图例打印成两行来避免上述问题？

我尝试了legend.position =“ top”，也尝试了legend.box =“ vertical”

k1 %>% 
  ggplot(aes(Alert,Sum, fill = Alert)) + 
  geom_bar(stat = "identity") + 
  facet_wrap(~ Model , nrow= 5) + 
  coord_flip() + 
  geom_text(aes(label = Sum), fontface = "bold") + 
  theme(legend.position = "none")+ 
  ggtitle("MODEL WISE ALERT COUNT")+ 
  theme_grey(base_size = 22)+
  theme(legend.position = "top")

Answer 1

我找到了答案。

k1％>％ggplot（aes（Alert，Sum，fill = Alert））+ geom_bar（stat =“ identity”）+ facet_wrap（〜Model，nrow = 5）+ coord_flip（）+ geom_text（aes（label = Sum），fontface =“ bold”）+ ggtitle（“ MODEL WISE ALERT COUNT”）+ theme_grey（base_size = 22）+ theme（legend.position =“ bottom”）** + guides（fill = guide_legend（nrow = 2， byrow = TRUE））