Комбинация прямоугольной диаграммы и гистограммы с использованием ggplot2

Я пытаюсь объединить гистограмму и коробчатую диаграмму для визуализации непрерывной переменной. Вот код, который у меня есть

require(ggplot2)
require(gridExtra)
p1 = qplot(x = 1, y = mpg, data = mtcars, xlab = "", geom = 'boxplot') + 
     coord_flip()
p2 = qplot(x = mpg, data = mtcars, geom = 'histogram')
grid.arrange(p2, p1, widths = c(1, 2))

Это выглядит хорошо, за исключением выравнивания осей X. Кто-нибудь может сказать мне, как я могу их выровнять? В качестве альтернативы, если у кого-то есть лучший способ построить этот график с помощью ggplot2 , это тоже будет полезно.