r - 时间序列中的 geom_smooth 问题

Question

我对 ggplot 有疑问。我的 geom_smooth() 曲线对于三个数据集是相同的。我已经玩了几个小时的数据，但我仍然很难过。

有任何想法吗？

代码：

COVID <- StatCovid <- read_excel("StatCovid.xlsx", sheet = "Organized")

United_States <- COVID %>% group_by(United_States) %>% select(dateRep, United_States)
France <- COVID %>% group_by(France) %>% select(dateRep, France)
India <- COVID %>% group_by(India)%>% select(dateRep, India)

ggplot(data = COVID, mapping = aes(x= ymd(dateRep), y= COVID$United_States)) + 
geom_point(color = "red") + 
geom_point(data = COVID, aes(x= ymd(dateRep), y= COVID$France), color= "blue") +
geom_point(data = COVID, aes(x= ymd(dateRep), y= COVID$India), color = "green") +
geom_smooth(data = United_States, aes(color = "United_States"),se = F)+
geom_smooth(data = France, aes(color = "France"),se = F)+
geom_smooth(data = India, aes(color = "India"),se = F)+
scale_color_manual(name = "Country", values = c(United_States = "red", France = "blue", India ="green"))+
theme_classic() + xlab(NULL) +ylab("Number of New Cases Found")+ labs(title = "Spread of COVID-19 as a result of Holiday Travel")

我的图表的最终目标是在假期前后有一个给定宽度的阴影区域，以查看 covid 在假期期间是否传播得更多。

这只是显示平滑几何是如何相同的。

参考 1

标签： rggplot2time-series