如何在gridExtra中调整两个具有固定纵横比的ggplots的大小？

Question

我正在尝试使用ggplot 和gridArrange 绘制三个回归方程的结果图。但是，在尝试绘制这些回归的残差时，我注意到了一个问题。我试图在纵横比为 1 的固定坐标系上绘制这些图，因为它们都是数据集的残差，是相对于原始测量的比例残差。但是，当我在 ggExtra 中打印组合图时，我最终会发现一个图比另一个短得多，并且图的标题没有对齐。

我知道这是因为由于 coord_fixed 调用，两个图都设置为不同的宽度。但是，我不知道如何在最终图表中进行调整，因此两个图表的大小相同。我想要做的是增加较小图形的空白以使两个相同的尺寸但保持固定的 1:1: 纵横比相同。我发现包含 respect=TRUE 无法解决此问题。

下面是重现我的示例的代码。

library(gridExtra)
library(ggplot2)
data(mtcars)
lm1<-lm(disp~drat,data=mtcars)
lm2<-lm(hp~drat,data=mtcars)
lm3<-lm(disp~hp,data=mtcars)
residuals<-data.frame(lm1=residuals(lm1),lm2=residuals(lm2),lm3=residuals(lm3))
(resid2<-grid.arrange(
  ggplot(residuals,aes(lm1,lm2))+
    geom_point(size=3,shape=21,fill="gray")+
    theme_classic()+
    ggtitle("Plot1")+
    coord_fixed(),
  ggplot(residuals,aes(lm1,lm3))+
    geom_point(size=3,shape=21,fill="gray")+
    ggtitle("Plot2")+
    theme_classic()+
    coord_fixed(),
  nrow=1))

Answer 1

澄清后编辑： 我们可以在 plot1 中使用ylim(-150, 200)

library(gridExtra)
library(ggplot2)
data(mtcars)
lm1<-lm(disp~drat,data=mtcars)
lm2<-lm(hp~drat,data=mtcars)
lm3<-lm(disp~hp,data=mtcars)
residuals<-data.frame(lm1=residuals(lm1),lm2=residuals(lm2),lm3=residuals(lm3))
(resid2<-grid.arrange(
  ggplot(residuals,aes(lm1,lm2))+
    geom_point(size=3,shape=21,fill="gray")+
    ylim(-150, 200) +
    theme_classic()+
    ggtitle("Plot1")+
    coord_fixed(),
  ggplot(residuals,aes(lm1,lm3))+
    geom_point(size=3,shape=21,fill="gray")+
    ggtitle("Plot2")+
    theme_classic()+
    coord_fixed(),
  nrow=1))