r - 让 ggplot2 直方图在 y 轴上显示类别百分比

Question

library(ggplot2)
data = diamonds[, c('carat', 'color')]
data = data[data$color %in% c('D', 'E'), ]

我想比较颜色 D 和 E 的克拉直方图，并在 y 轴上使用分类百分比。我尝试过的解决方案如下:

解决方案1:

ggplot(data=data, aes(carat, fill=color)) +  geom_bar(aes(y=..density..), position='dodge', binwidth = 0.5) + ylab("Percentage") +xlab("Carat")

这不太正确，因为 y 轴显示了估计密度的高度。

解决方案2:

 ggplot(data=data, aes(carat, fill=color)) +  geom_histogram(aes(y=(..count..)/sum(..count..)), position='dodge', binwidth = 0.5) + ylab("Percentage") +xlab("Carat")

这也不是我想要的，因为用于计算 y 轴上比率的分母是 D + E 的总数。

有没有办法用ggplot2的堆叠直方图显示分类百分比？也就是说，不是在 y 轴上显示 (# of obs in bin)/count(D+E)，我希望它显示 (# of obs in bin)/count(D) 和 (# of obs in bin)/count(E) 分别用于两个颜色类别。谢谢。

Answer 1

您可以使用 ..group.. 按组缩放它们。用于对 ..count.. 进行子集化的特殊变量向量。由于所有的点，它非常丑陋，但它在这里

ggplot(data, aes(carat, fill=color)) +
  geom_histogram(aes(y=c(..count..[..group..==1]/sum(..count..[..group..==1]),
                         ..count..[..group..==2]/sum(..count..[..group..==2]))*100),
                 position='dodge', binwidth=0.5) +
  ylab("Percentage") + xlab("Carat")