Tenho um gráfico de barras e linhas feito com ```ggplot2```, a linha vermelha trata-se de uma média móvel de 7 dias, porém, quando ploto no gráfico, ele apresenta uma queda no final de cada um que não condiz com os valores. Gráfico: [![inserir a descrição da imagem aqui][1]][1] [1]: https://i.sstatic.net/BzWeu.png O que está acontecendo para a linha ficar dessa forma? Código que estou utilizando: ``` library(tidyverse) library(httr) library(openxlsx) url <- httr::GET("https://xx9p7hp1p7.execute-api.us-east-1.amazonaws.com/prod/PortalGeral", httr::add_headers("X-Parse-Application-Id" = "unAFkcaNDeXajurGB7LChj8SgQYS2ptm")) %>% httr::content() %>% '[['("results") %>% '[['(1) %>% '[['("arquivo") %>% '[['("url") ({dados <- read.xlsx(url) %>% filter(is.na(municipio), is.na(codmun)) dados$data <- as_date(dados$data) for(i in 9:14) { dados[,i] <- as.numeric(dados[,i]) } rm(url, i) dados <- dados %>% mutate(casosNovos = casosAcumulado - lag(casosAcumulado, 1), obitosNovos = obitosAcumulado - lag(obitosAcumulado, 1), mortalidade = obitosAcumulado / casosAcumulado, casosNovos = ifelse(casosNovos < 0, NA, casosNovos), obitosNovos = ifelse(obitosNovos < 0, NA, obitosNovos))}) dados_mm7d <- dados %>% mutate(mm7dCasos = rollmeanr(casosNovos, 7, c(rep(NA, 6)), allign = "right"), mm7dCasos = ifelse(is.na(mm7dCasos), 0, mm7dCasos), mm7dCasos = ifelse(is.infinite(mm7dCasos), 0, mm7dCasos)) %>% filter(data >= "2020-04-07", !is.na(estado)) dados %>% filter(data >= "2020-04-01", !is.na(estado)) %>% ggplot() + geom_col(aes(x = data, y = casosNovos), na.rm = TRUE, color = "black", fill = "#4682B4", size = 0.1, width = 0.6) + geom_line(data = dados_mm7d, aes(x = data, y = mm7dCasos), color = "#FF6347", size = 0.7) + scale_y_continuous(trans = 'log2', labels = scales::comma) + labs(x = "", y = "") + coord_cartesian(ylim = c(2, 6144)) + scale_x_date(date_labels = "%b %d", date_breaks = "2 week") + theme(text = element_text(size = 10), axis.text.x = element_text(angle = 90, hjust = 1)) + theme(panel.background = element_rect(fill = "white", colour = "grey10", linetype = "solid")) + facet_wrap(~estado, nrow = 3) ```