r - R ggplot2绘制计数百分比曲线

Question

我打算绘制它们的百分比曲线和两条阴影曲线作为它们的平均值。

ggplot2 密度图没有显示 Y 轴上的计数百分比。

这是一个类似的情节（代码可以在这里找到！）。

如何绘制宽度为 10 的箱的百分比“曲线”，范围从 x 轴上的范围值？

如何在每条曲线顶部添加一个小文本表示圆形＃并使用不同来表示两个物种并使用阴影区域表示两个物种的平均值？

这是我可以在 R 中复制的数据集：

  Virus <- c(rnorm(3000, mean = 40, sd = 0.3),rnorm(3000, mean = 41, sd = 0.5),rnorm(3000, mean = 38, sd = 1),rnorm(3000, mean = 39, sd = 1.3))
  Round <- rep(c(1,2,3,4), each = 3000)
  Species <- rep(c(1,2), each = 6000)
  df <- data.frame(Virus, Round, Species)

这是我尝试过的代码：

  ggplot(df) + stat_bin(aes(x=Virus, group=interaction(Round,Species), colour=factor(Species)), alpha=1, binwidth=1, geom="line", position="identity") + aes(y = ..count../sum(..count..)) + stat_bin(aes(x=Virus, group=Species, fill=factor(Species)), alpha=.4, binwidth=1, geom="bar", position="identity") + aes(y = ..count../sum(..count..)) +  scale_y_continuous(labels = scales::percent)

结果如下：

阴影区域似乎只是两条曲线的总和。请让我知道如何绘制每个物种的两条曲线的平均值。

谢谢。