R ggplot2绘制计数百分比的曲线

Question

我打算将他们的百分比曲线和两条阴影曲线绘制成平均值。

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

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

如何使用宽度为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)

结果如下：

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

感谢。