使用plot_grid（cowplot）将ggplot和基本r图以相同的x限制对齐

Question

我试图将2个散点图彼此叠加绘制，但我希望在x轴上具有相同的限制，以便使两个图对齐。

我尝试过：

p1 <- ggplot(mtcars, aes(x=wt, y=mpg)) + 

 geom_point() +
  scale_x_continuous(limits = c(0,10))

plot(1:10)
p2 <- recordPlot()                 

plot_grid(p1,p2,
          labels = 'AUTO',
          hjust = 0, vjust = 1,
          nrow=2)

有没有一种方法可以自动设置x限制？例如，如果我要绘制另一个图（例如在Y轴上带有长标签的条形图）。能做到吗？