堆积图和密度图

Question

这些是有关如何分别绘制密度图或箱形图的几个很好的例子 。

但是，我正在寻找一个示例，该示例如何绘制箱形图及其对应的密度图，一个叠加在另一个之上，并且不重叠。 密度图应位于顶部。 底部的箱线图沿x轴布置。

我不确定如何执行此操作，非常感谢您提供任何建议或技巧。 最好使用此玩具数据集，以使其保持简单。

df <- data.frame(x <- rchisq(1000, 5, 10))

Answer 1

如果我对您的理解正确，那么您正在寻找这样的东西：

library(plotly)
df  <- data.frame(y = rchisq(1000, 5, 10))
fit <- density(df$y)

p1 <- plot_ly(df, x = fit$x, y = fit$y, type = 'scatter', mode = 'lines') 
p2 <- plot_ly(df, y = ~y, type = 'box')
subplot(p1, p2, nrows = 2)