对齐多个笛卡尔坐标和极坐标坐标图的底轴

Question

我如何在当前水平和垂直分布的两个图p1（笛卡尔坐标）和p2（极坐标）的x轴（其绘制窗口的下边缘）垂直对齐。使用grid.arrange垂直居中吗？

p <- ggplot(mtcars %>% mutate(trans = factor(am)))

p1 <- p + geom_bar(aes(x="", fill=trans)) +
  scale_fill_manual(values=gray(1:2/3))
p2 <- p + geom_bar(aes(x="", fill=trans)) +
  scale_fill_manual(values=gray(1:2/3)) +
  coord_polar(theta="y")

gridExtra::grid.arrange(p1, p2, nrow=1)