如何在ggarrange ggpubr ggplot中调整边距（轴元素消失）R

Question

我想使用ggarrange将 3 个图堆叠成 1 ggarrange但底部图的 x 轴元素（日期）总是消失。

例如，这里缺少plot_3 (Z) 的轴元素。

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

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

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

我试图调整每个ggplot的边距，但同样的问题仍然存在。 所以，我想这一定与ggarrange的边距ggarrange 。

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

Answer 1

我认为函数 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"))