Tenho um gráfico de exemplo que mostra a sazonalidade de um dado por mês ao longo dos anos. Gostaria de adaptar o gráfico para dias da semana, possuo o código de exemplo, mas não estou conseguindo adaptá-lo.
A ideia é verificar se existe sazonalidade no número de novos casos em dias da semana. Por exemplo, se há um dia ou dias que possuem mais casos confirmados e a outra hipótese é verificar se em finais de semana existe uma diminuição desse número.
Gráfico de exemplo:
Código utilizado:
devData <- subset(df, Series=="Deviation", select=c(Series, Year, Month, Values))
meanDevData <- subset(df, Series=="Mean Deviation", select=c(Series, Year, Month, Values))
medDevData <- subset(df, Series=="Median Deviation", select=c(Series, Year, Month, Values))
ggplot(df,aes(Year,Values,colour=Series)) +
geom_point(data=devData,size=I(2),alpha=I(0.6)) +
geom_line(data=meanDevData,size=I(1.5),alpha=I(0.6)) +
geom_line(data=medDevData,size=I(1.5),alpha=I(0.4)) +
theme_grey(base_size=15) +
theme(legend.title = element_blank(), legend.position=c(.15,.9), axis.title.y=element_blank(),axis.text.x=element_blank()) +
ggtitle("UKRPI Additive Deviation") + facet_grid(. ~ Month) +
xlab(paste("Years:",min(df$Year),"to", max(df$Year)))
Link do site com o post: https://www.clarusft.com/exploring-seasonality-in-a-time-series-with-rs-ggplot2/
Base de dados que estou utilizando: https://covid.saude.gov.br/
Lembrando que não possuo a base de dados do exemplo para fazer testes. Se puderem ajudar, agradeço muito.