带有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

x轴只是一组10个值。具有分布方面的是y轴。因此，该箱线图是正确的，但最好不过是琐碎的事情，而最坏情况是容易引起误解的。您想要（或应该想要）的是：

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

 d 

Answer 2

我刚刚回答了similar question。看看这种外观是否适合您？箱形图位于图边距内部（类似于geom_rug），而不是外部。

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

geom_marginboxplot的代码在上面的链接中。