r - 使用 plot_grid (cowplot) 将 ggplot 和 base 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 轴上带有长标签的条形图）。这可以实现吗？

标签： rggplot2gridviewcowplot