是否有任何简单的方法可以为每个组和方面的密度图添加观察总数？

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。