到目前为止,我可以做到这一点:
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
间隔太疯狂了。