r - 使用 ggplot2 沿平滑曲线绘制直方图或密度

Question

是否有一种通用方法可以绘制密度( fiddle 图)或直方图，以显示 x 沿平滑 (x,y) 曲线的分布？当存在多个组时(例如，一个面板上有不同的曲线，由不同的颜色描绘)，我使用这种方法来显示 x 的边际分布。

这里是一个使用 Hmisc 包的 plsmo 函数来获取分层黄土曲线和尖峰直方图的示例，显示特定于性别的数据密度年龄。

require(Hmisc)
set.seed(1)
age <- rnorm(500, 50, 15)
y <- sample(0:1, 500, TRUE)
sex <- sample(c('female','male'), 500, TRUE)
plsmo(age, y, group=sex, col=1:2,
      datadensity=TRUE, scat1d.opts=list(nhistSpike=20))

Answer 1

我相信你可以使用 ggsubplot 包来做到这一点。请参阅the article和 the package 。我相信代码看起来像这样:

qplot(age, y, data = dataset, color = sex) + 
    geom_subplot(aes(x, y, data = distributions, group = sex, 
        subplot = geom_violin(aes(x, y, data = distributions))))

但我认为您的示例没有提供足够的细节来在曲线上的点处创建 fiddle 。除非我误解了你的问题。