r - 各グループとファセットの密度プロットに観察の総数を追加する簡単な方法はありますか?

Question

私はこれまでのところこれを行うことができます：

ggplot(data, aes(x=x, fill=fill)) + 
  geom_density(alpha=0.3) + 
  stat_vline(aes(color=fill), xintercept="mean", linetype="dotted") +
  facet_grid(y ~ z , labeller=label_both ) +
  scale_x_continuous(labels=comma) + 
  coord_cartesian(xlim=c(0,48000), ylim=c(0, 3e-4)) +
  geom_text(y=2e-4, aes(label=..count.., ymax=..count.., color=fill),
            position=position_dodge(width=15000), 
            stat="bin", binwidth=100000, origin=-50000+35000)

ご覧geom_textのとおり、非常に複雑です。bin統計レイヤーとして選択し、非常に大きなものを提供して、1 つのビンのみが生成されるようにし、値が実際にプロット内に印刷されるようbinwidthに良いものを提供する必要があります。また、間隔がおかしいのでorigin手動で調整する必要がwidthあります。dodgebin