R-用比例而不是计数覆盖直方图-ggplot2

Question

我在proportion上使用y-axis而不是count时无法覆盖直方图。

这是我的示例代码：

library(ggplot2)
library(dplyr)    
set.seed(123)
    date1 <- rep("2017-03-31",100)
    account <- 1:100
    flag_1 <- sample(c(0,1),100,replace = TRUE)
    avg <- abs(rnorm(100))

    #Incorrect graph
    data.frame(date1,account,flag_1,avg) %>% 
      ggplot(aes(x = avg, fill = factor(flag_1)))+
      geom_histogram(aes(y = ..count../sum(..count..)), binwidth = .1, alpha = 0.2, position = "identity")


    # correct graph
    data.frame(date1,account,flag_1,avg) %>% 
      ggplot(aes(x = avg, fill = factor(flag_1)))+
      geom_histogram(aes(y = ..count../tapply(..count..,..PANEL..,sum)[..PANEL..]),fill = "white", colour = "black")+
      facet_wrap(~flag_1)

我使用了post中的代码来绘制覆盖图。
当我使用position = "identity"时，它会显示如下图：

但这是两个图并排显示的样子：

我认为，当我叠加时，它是在整个数据集上进行计算，而忽略了组。 我该如何解决？

谢谢