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)

Я использовал код из этой записи , чтобы нарисовать наложенный график.
Когда я использую position = "identity", график выглядит так:

Но вот как эти два графика выглядят рядом:

Я думаю, что при наложении выполняется вычисление по всему набору данных и игнорирование групп. Как я могу это исправить?

Спасибо