Я пытаюсь объединить гистограмму и boxplot для визуализации непрерывной переменной. Вот код, который я до сих пор
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
, это также будет оценено.