Выровнять нижнюю ось нескольких декартовых и полярных координатных графиков

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)