R 如何绘制季节性曲线图？

我想建立一个图表来确定从1月到12月流感病毒的季节性，并在2011-2018年对其进行分组，但我的结果有问题

我想要本出版物中出现的图形：

---

假设你指的是论文中的第一个图形，那么最简单的方法就是用镶嵌线包裹或镶嵌线网格

编辑-我还想补充一点，R不会阻止像***这样的评论，如果你正在尝试的话

library(dplyr)
data %>%
  count(year, month , wt = outcome == "positive") %>%
  ggplot(aes(x=month, y= n, group = year, fill = year)) + 
  geom_col(position = "dodge") +
  scale_x_continuous(breaks = 1:12, labels = month.abb)

library(dplyr)
data %>%
  count(year, month , wt = outcome == "positive") %>%
  ggplot(aes(x=month, y= n, group = year, fill = year)) + 
  geom_col(position = "dodge") +
  scale_x_continuous(breaks = 1:12, labels = month.abb)