r - qplot/ggplot 中带分数的直方图

Question

到目前为止，我错过了一个在 y 轴上有一个分数的直方图函数。像这样:

require(ggplot2)
data(diamonds)
idealD <- diamonds[diamonds[,"cut"]=="Ideal",]

fracHist <- function(x){
  frac <- (hist(x,plot=F)$counts) / (sum(hist(x,plot=F)$counts))
  barplot(frac)
}

### call
fracHist(idealD$carat)

它不是很漂亮，但基本上应该可以解释我想要什么:条形高度应该加起来为 1。另外，中断应该标记 x 轴。我很想用 ggplot2 创造同样的东西 but can't figure out how to get around plotting the frequencies of压裂 instead of plotting压裂 itself .

all I get with `ggplot` is density...

m <- ggplot(idealD, aes(x=carat)) 
m + geom_histogram(aes(y = ..density..)) + geom_density()

Answer 1

解决方法是使用stat_bin并映射美学 y=..count../sum(..count..)

library(ggplot2)
ggplot(idealD, aes(x=carat)) + stat_bin(aes(y=..count../sum(..count..)))

来自 ?hist 的快速扫描我找不到 hist 中的值是如何分类的.这意味着除非您摆弄 binwidth，否则图表不会相同。 stat_bin 的论据.