合計obsを追加する方法。 ggplotの "filled" geom_histogramに対する要約（行）としてbin/barごとに数えますか？

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)) 
      ) 

私はラインとしてビン当たりの観測数の合計を追加する方法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) 

を「塗りつぶし」を用いて100％積み上げヒストグラムとしてそれを視覚化しています考えてみましょうstat（..count ..）を使っています。 私はdnormを使ってトップにオーバーレイされた正規分布としてmeanを持つstat_functionを試しましたが、両方のファセットの各ビン内の観測数を要約する線だけが必要です。可変当たり

1. （-E）ラベル付き
2. 総

Iも試みstat_binは= ..カウント、それ自体へとY制限を押すとバーが押し下げられます。私は何が欠けていますか？

Answer 1

最初の部分は実際には非常に簡単でした。私はgeom_densityを使ってカウント密度を計算し、それをラインとして追加することができます。 2番目のクエリのために

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) 

、それはあまり意味がありません。私は位置をアイデンティティに変更し、binごとの項目数をカウントするstat_binを使用していますが、条件ごとに行として追加したいので、新しい質問として追加します。