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