R / ggplot2：使用grid.arrange时文本注释被截断

Question

我正在尝试使用grid.arrange将多个ggplot2图表放到一个页面上。我创建的每个图都将P值作为注释添加到它们中。单独创建每个绘图时，注释会正确显示，但只要我使用grid.arrange，文本就会被截断，如下所示。

单一情节的例子

使用grid.arrange

我使用的代码如下：

单个图1的示例：

glennaj<-ggplot(regglen2,aes(N_flex,Seeds))+geom_jitter()+
  geom_smooth(method=lm,linetype="dashed",colour="black")+
  theme_classic()+
  coord_cartesian(xlim=c(0,101), ylim=c(0,30), expand = c(0,0))+
  xlab("")+
  ylab("")+
  geom_text(x=90,y=25,label="R2=0.0038")+
  geom_text(x=90,y=22,label="P=0.4531")

单曲线2的示例：

buttlat<-ggplot(regbutt2,aes(Lat,Seeds))+
  geom_jitter()+
  geom_smooth(method=lm,linetype="dashed",colour="black")+
  theme_classic()+
  coord_cartesian(xlim=c(5400,6200), ylim=c(0,22), expand = c(0,0)) +
  xlab("")+
  ylab("")+
  geom_text(x=6000,y=17,label="R2=0.0380")+
  geom_text(x=6000,y=14,label="P=0.0657")+
  theme(axis.text.x=element_text(angle=90,hjust=1))

使用先前分配的名称

排列网格

grid.arrange(glennaj,glencov,glendepth,glenlat,glenlong,tangnaj,
tangcov,tangdepth,tanglat,tanglong,buttnaj,buttcov,buttdepth,buttlat,
buttlong,ncol=5,nrow=3)