Гистограмма с маргинальным блокпостом с ggExtra

Question

Здравствуйте, я хочу маргинальное поле для гистограммы.Как и год назад, я мог бы сделать это с тем же кодом, приведенным ниже

    library(ggplot2)
    library(ggExtra)

    set.seed(17)

    x <- rpois(10000,lambda = 2)


    c <- ggplot() + 
      geom_histogram(aes(x),fill='lightblue',closed='left', bins = 10)+
      geom_vline(xintercept= quantile(x),linetype = 3,colour = "Red")+
      theme_bw()

    d <- ggMarginal(c, type = "boxplot", fill="lightblue",colour='blue',margins='x',size=30)

    d

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

С уважением,

Питер

Answer 1

Я только что ответил на похожий вопрос .Видишь, работает ли этот вид у тебя?Размер поля: внутри поля графика (аналогично geom_rug), а не снаружи.

c +
  geom_marginboxplot(aes(x, y = 1), sides = "t", 
                     fill = "lightblue", colour = "blue")

Коддля geom_marginboxplot находится по ссылке выше.

Answer 2

Ось X - это просто набор из 10 значений.Это ось Y имеет аспекты распределения.Так что этот блокпост правильный, но в лучшем случае тривиальный, а в худшем вводящий в заблуждение.То, что вы хотите (или должны хотеть):

d <- ggMarginal(cc, type = "boxplot", 
fill="lightblue",colour='blue',margins='y',size=30)

 d