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

[![inserir a descrição da imagem aqui][1]][1]


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)

str(df3)

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)
```

[![inserir a descrição da imagem aqui][2]][2]


  [1]: https://i.sstatic.net/Ryu21.png
  [2]: https://i.sstatic.net/m5RU9.png