r - ggplot2 - 创建一个关于总样本大小的堆积密度图

Question

假设我们有两个样本量不同的组“a”和“b”。

n = 10000
set.seed(123)
dist1 = round(rnorm(n, mean = 1, sd=0.5), digits = 1)
dist2 = round(rnorm(n/10, mean = 2, sd = 0.2), digits = 1)
df = data.frame(group=c(rep("a", n), rep("b", n/10)), value=c(dist1,dist2))

我想将以下堆叠条形图转换为堆叠密度图。

library(ggplot2)
ggplot(data=df, aes(x=value, y=(..count..)/sum(..count..), fill=group)) +
  geom_bar()

我知道密度图有一个选项 position="stack"。但是，结果如下所示，因为密度的高度是相对于组样本大小，而不是总样本大小。因此，在某种程度上，小群体的代表人数过多。

ggplot(data=df, aes(x=value, fill=group)) +
  geom_density(position="stack")

有没有办法创建与上述条形图相对应的密度图？

Answer 1

仅对密度图执行与对条形图所做的相同的操作是否不能提供您要查找的内容？

   ggplot(data=df, aes(x=value, fill=group)) +
     geom_density( aes(y = ..count../sum(..count..)),  position="stack", alpha=.7)

给出