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作为我的统计层并提供了一个非常大的数据binwidth以便只生成 1 个 bin，并且我必须提供一个很好的origin数据以便将值实际打印在图中。另外，我必须手动调整width，dodge因为bin间隔太疯狂了。