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

标签： rggplot2data-visualizationgridextra

Answer 1

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

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))