如何调整ggarrange ggpubr ggplot中的边距(轴元素消失)R

时间:2019-12-08 16:40:48

标签: r ggplot2 ggpubr

我想使用ggarrange将3个图叠加成1个,但底部图的x轴元素(日期)总是消失。

例如,此处缺少plot_3(Z)的轴元素。

ggarrange(plot_1, plot_2, plot_3 + rremove("x.text"), 
          nrow = 3, align = "h")

Result 1

当我更改顺序时,plot_2(Y)的轴元素现在消失了。

ggarrange(plot_1, plot_3, plot_2 + rremove("x.text"), 
          nrow = 3, align = "h")

Result 2

我试图调整每个ggplot中的页边距,但是仍然存在相同的问题。因此,我想这一定与ggarrange中的边距有关。

顺便说一句,我还尝试删除了前两个图的所有x轴标题,并保留了最后一个(底部)图的标题,但同样,日期仍然丢失。

1 个答案:

答案 0 :(得分:3)

我认为函数 theme() 会很有用

ggarrange(plot_1, plot_2, plot_3 + rremove("x.text"), 
          nrow = 3, align = "h")+
  theme(plot.margin = margin(0.1,0.1,2,0.1, "cm"))