r - ggarrangeで一般的なx軸をスタックするときにプロットサイズを維持するにはどうすればよいですか?

Question

ggplot で共通の x 軸と y 軸を使用してプロットを積み重ねようとしています。私がやりたいことは、下のプロットだけに x 軸のラベルとタイトルを表示することです。しかし、x軸のラベル/タイトルの利点を引き継いで下のプロットを押しつぶすことなく、ggplot2でこれをきれいに行う方法を理解することはできませんでした。これを行う簡単な方法があるはずです-誰もがグラフを積み重ねたいと思っていますよね? !

私は現在、ggarrangeを試しています。以下のコード例。下のプロットは、目盛りと軸のラベルがあるため、垂直方向に圧縮されていることに注意してください。上の 2 つに白いフォント ラベル/タイトルを付けることもできますが、そのハックを使用すると、3 つの間に不自然な量のマージン スペースができてしまいます。

私は間違いなくgpubr以外のパッケージを受け入れていますが、次の状況で使用できるように、あまり複雑ではないものを望んでいます。

助けてください！！-ライアン

#

require(ggplot2); require(ggpubr)

X=data.frame(seq(as.Date("2001-01-01"),as.Date("2001-12-31"),by='days')); colnames(X)='date'
X$Y1=sample(80:100,size=nrow(X),replace=T)
X$Y2=sample(100:120,size=nrow(X),replace=T)
X$Y3=sample(50:70,size=nrow(X),replace=T)

plot.Y1= ggplot(X, aes(x=date,y=Y1))+
  geom_line()+lims(y=c(50,150))+
  theme(axis.title.x = element_blank(),axis.text.x=element_blank())

plot.Y2= ggplot(X, aes(x=date,y=Y2))+
  geom_line()+lims(y=c(50,150))+
  theme(axis.title.x = element_blank(),axis.text.x=element_blank())

plot.Y3= ggplot(X, aes(x=date,y=Y3))+
  geom_line()+lims(y=c(50,150))

x11(10,8)

ggarrange(plot.Y1,plot.Y2,plot.Y3,nrow=3,ncol=1)

下のプロットがつぶれています！