缩放ggplot密度曲线区域以反映分类流行率

Question

是否可以按类别调整密度图来表示各自的患病率？举例说明：

set.seed(3)
dat = data.frame(x = sample(50), y = sample(c(rep(c('A','B'), each=23), rep('X', 4))))
table(dat$y)
 A  B  X 
23 23  4
ggplot(dat, aes(x, fill=y)) + geom_density(alpha=.3)

X类的曲线被归一化，因此它的区域（我猜）与其他类别相等。如果可能的话，我希望它反映出X的少量观察结果。感谢指针。

Answer 1

根据@ user20650的评论：

ggplot(dat, aes(x, y=..count.., fill=y)) + geom_density( alpha = .3)

..count../50以获得正确的y轴密度标度。