使用gggrassure减少地块之间的空间

我有一个问题，我的情节之间的大空间使用gggrand安排.我知道有一个使用grid. arrangement来减少空间的解决方案，但是我一直在使用gorgarrangement，因为它有很好的选项(这里使用的也称为"对齐"和"标签").

其他使用ggarrangement和grid. arrangement的答案建议更改绘图边缘，(我在这个例子中try 这样做)，但这似乎并没有解决我的问题.我假设是因为即使我已经空白了x轴，在图之间仍然有空的空间，而"空白"轴仍然占据空间.

以下是我的例子:

library(ggplot2)
library(ggpubr)

x<-seq(1,10)
y<-seq(10,1)

DF<-data.frame(x,y)

p1<- ggplot(DF, aes(x=x,y=y)) + 
  labs(x="Xlab", y="Ylab") +
  geom_line()+
  theme_bw()
  
  
p1TopNoX<-p1 + theme(axis.title.x=element_blank(),
                     axis.text.x=element_blank(),
                     axis.ticks.x=element_blank(),
                     plot.margin = margin(1, 1, 0, 0, "cm"))


p1MidNoX<-p1 + theme(axis.title.x=element_blank(),
                     axis.text.x=element_blank(),
                     axis.ticks.x=element_blank(),
                     plot.margin = margin(1, 1, 0, 0, "cm"))

p1BotX<-p1 + theme(plot.margin = margin(1, 1, 1, 0, "cm"))

ggarrange(p1TopNoX, p1MidNoX, p1BotX,
          nrow=3, labels = c("A","B", "C"), align= 'hv', 
          hjust=-4.5, vjust=3, font.label=list(color="black",size=25))

我的目标是让底部的图显示x轴，上面的两个图没有轴标签(也就是共享轴图). 注意图之间的空白.我想减少这些情节之间的空间，使三个情节几乎接触.