Как добавить общий обс. count per bin/bar в качестве сводного стата (строки) для «заполненной» геометрии в ggplot?

Question

Рассмотрим следующие данные игрушечные

dat=data.frame(value=runif(3000,1,5), 
      name=rep(c('A','B','C','D','E','F')), 
      code=c(rep('game1',1500),rep('game2',1500)) 
      ) 

Я визуализируя его как 100% сложенных гистограммы с помощью «заливки» от geom_histogram

ggplot(dat,aes(x=value))+ 
    geom_histogram(position='fill',binwidth=0.5,aes(fill=name))+ 
    theme_bw()+ 
    scale_fill_brewer(palette="RdBu")+ 
    facet_wrap(~code) 

Как добавить общее количество наблюдений в бункере в качестве линии используя stat (..count ..). Я пробовал stat_function со средним как нормальное распределение, наложенное сверху, используя dnorm, но просто нужно просто строку, суммирующую количество наблюдений в каждом ящике для обоих фасетов.

1. в переменной (A-E)
2. общая

Я также попытался stat_bin с меткой = .. подсчет .., но он раздвигает границы у к себе и бары выталкиваются вниз. Что мне не хватает?

Answer 1

Первая часть была очень легко на самом деле. Я мог бы просто вычислить плотность счета, используя geom_density, и добавить его как строку.

ggplot(dat,aes(x=value))+ 
    geom_histogram(position='fill',binwidth=0.5,aes(fill=name))+ 
    theme_bw()+ 
    scale_fill_brewer(palette="RdBu")+ 
    facet_wrap(~code)+geom_density(color='white',size=2) 

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