情节叠加的箱形图和密度图

Question

这些是关于如何分别绘制密度或箱形图的一些good examples。

但是，我正在寻找一个关于如何绘制箱线图及其相应密度图的示例，这些图堆叠在一起并且没有重叠。密度图应该在顶部。底部的箱线图横跨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)