Boletins do Ministério da Saúde

A partir dos boletins epidemiológicos do ministério da saúde compilamos os óbitos por SRAG com confirmação de Covid-19, cada boletim traz um gráfico de barras que conta os óbitos por data de óbito, ou seja, a data da ocorrência do óbito. É importante deixar claro que não há somete este modo de informar óbitos, o ministério mesmo já informou em alguns de seus boletins óbitos via a data de notificação do óbito. Todo o objetivo do nowcasting é realizar uma correçãopara se chegar à um número mais próximo da realidade, sem que se tenha que esperar para isso a chegada de dados no sistema. O nowcasting corrige esses atrasos que são inerentes do sistema de notificação.

uol<-read_csv("SRAGs-tabela-last-updated_revised3.csv")
## Parsed with column specification:
## cols(
##   .default = col_double(),
##   Data = col_character()
## )
## See spec(...) for full column specifications.
uol<-as.data.frame(uol)
uol$Data<-as.Date(uol$Data, format = "%d/%m/%Y")
uol_melted<-reshape::melt(uol, id.vars = "Data")

p.uol <-
  ggplot(uol_melted, aes(x = Data, y = value, col = variable)) +
  geom_point(shape = 1)+
  geom_line()+
  geom_vline(xintercept = as.Date("2020-03-17", format = "%Y-%m-%d"), colour = "indianred3", size = 0.45, linetype = "dashed")+
  scale_color_viridis_d(name = "Data Boletim", option = "viridis", direction = 1)+
  labs(x = "Data", y = "Número de Óbitos") +
  theme_bw() +
  theme(legend.position = "right")+
  theme(axis.text= element_text(size=14),
        axis.title = element_text(size=14))
p.uol
## Warning: Removed 1275 rows containing missing values (geom_point).
## Warning: Removed 1275 row(s) containing missing values (geom_path).