R 几何图形直方图中的填充颜色（…密度…，组=1）

我有一个关于geom_直方图函数的基本问题

使用数据集：

df <- data.frame(value = factor( rep(c("A","B"), c(100,200) )))

输出是一个直方图，a的计数为100，B的计数为200

如果我用以下公式绘制密度：

ggplot(df, aes(x=value, fill = factor(value), ..density..)) + geom_histogram()

输出是一个直方图，a的密度为1，B的密度为1。我假设原因是密度是分别在a和B上计算的

使用以下工具创建的直方图：

ggplot(df, aes(x=value, group = 1, fill = factor(value),..density..)) + geom_histogram()

是一个直方图，其中a是0.33，B是0.66，但填充颜色是黑色的，我找不到一种方法来获取此版本绘图中先前直方图中使用的填充颜色

---

如何根据因子（值）生成带有填充颜色的直方图的最新版本？

我解决了以下问题：

ggplot(df, aes(x=value, fill = factor(value))) + 
 geom_histogram(aes(y=..count../sum(..count..)))

---

我用以下方法解决了问题：

ggplot(df, aes(x=value, fill = factor(value))) + 
 geom_histogram(aes(y=..count../sum(..count..)))