ggplot直方图：除了每个箱中的组计数外，还显示总计数

Question

我正在尝试使用ggplot生成直方图，它在x轴上具有速度，在y轴上具有计数。此外，每个垃圾箱显示白天和黑夜中有多少垃圾箱。 我需要在情节中展示计数本身。我设法在每个小节内添加了计数，但现在我想在每个小节的上方显示另一个数字，即总计数。有可能吗？

这是我的代码：

ggplot(aes(x = speedmh ) , data = GPSdataset1hDFDS48) + 
  geom_histogram(aes(fill=DayActv), bins=15, colour="grey20", lwd=0.2) + ylim(0, 400) +xlim(0,500)+
  stat_bin(bins=15, geom="text", colour="white", size=3.5,
           aes(label=..count.., group=DayActv), position=position_stack(vjust=0.5))

这是我得到的结果：

如何将每个仓内的速度总计添加到每个栏的顶部？ 理想情况下，我想对速度比例而不是计数值进行直方图绘制，但目前我认为这太复杂了。 谢谢！！ 米娅

Answer 1

一种方法是添加另一个stat_bin命令而不进行分组：

library(ggplot2)
ggplot(aes(x = speedmh) , data = GPSdataset1hDFDS48) + 
  geom_histogram(aes(fill=DayActv), bins=15, colour="grey20", lwd=0.2) + ylim(0, 400) + 
  xlim(0,500) +
  stat_bin(bins=15, geom="text", colour="white", size=3.5,
           aes(label=..count.., group=DayActv), position=position_stack(vjust=0.5)) +
  stat_bin(bins=15, geom="text", colour="black", size=3.5,
           aes(label=..count..), vjust=-0.5)

---

---

数据：

GPSdataset1hDFDS48 <- data.frame(speedmh=rexp(1000, 0.015), DayActv=factor(sample(0:1, 1000,TRUE)))