如何在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"))