Eu testei seu código aqui e o erro que apareceu foi
Erro: Mapping should be created with
aes() or
aes_()`.
Para corrigir isso, você precisa declarar 'data'
geom_line(data = previsoes, aes(x = Data, y = Previsao_Casos))
OBS. Seu gráfico não ficará como o que você pede pois os dados em 'previsões' só tem maio, a partir de 14/05. Fica uma falha na linha pois falta dia 14/05 no 'updates'. Ele pula por causa do NA
Removed 1 row(s) containing missing values (geom_path).
Você terá que tratar esse NA para ele juntar as linhas
OBS.: Refiz o código criando data frames para organizar melhor, corrigir falhas na plotagem e conseguir plotar legendas, etc.
library(tidyverse)
library(openxlsx)
library(tidycovid19)
previsoes <- read.xlsx("https://raw.githubusercontent.com/gabrielrvsc/COVID19_outputs/master/forecasts_20200513.xlsx")
previsoes$Data <- convertToDate(previsoes$Data)
updates <- download_merged_data(cached = TRUE)
df1 <- updates %>%
filter(iso3c %in% "BRA", date > "2020-03-20") %>%
select(date, confirmed) %>%
rename(Data = date, Casos = confirmed) %>%
mutate(Tipo = "Confirmados")
df2 <- previsoes %>%
select(Data, Previsao_Casos) %>%
rename(Casos = Previsao_Casos) %>%
mutate(Tipo = "Previsto")
df3 <- rbind(df1, df2)
stroptions(df3scipen = 999)
grafico <- df3 %>%
ggplot() +
geom_line(aes(x = Data, y = Casos, linetype = Tipo)) +
geom_vline(xintercept = as.Date("2020-05-14"), lty = 2) +
scale_x_date(date_breaks = "7 days", date_labels = "%d/%b") +
geom_ribbon(data = previsoes, aes(x = Data, ymin = Previsao_Casos-Previsao_Casos_Variacao, ymax = Previsao_Casos+Previsao_Casos_Variacao), alpha = 0.3)