R/mediamovel7diasgrafico.R

In fernandobastosneto/vacinacaodf: Dados de Vacinação do Distrito Federal

#' @export

mediamovel7diasgrafico <- function() {
  
  df_vac %>% 
    dplyr::group_by(data_aplicacao) %>% 
    dplyr::count() %>% 
    dplyr::ungroup() %>% 
    dplyr::mutate(agregado = zoo::rollapplyr(n, 7, mean, partial = T))  %>% 
    ggplot2::ggplot() +
    ggplot2::geom_area(ggplot2::aes(data_aplicacao, agregado), fill = "red") +
    ggplot2::labs(x = NULL, y = "Média Vacinas Aplicadas",
         title = "Média Móvel de Vacinas Aplicadas por dia no DF",
         subtitle = "Intervalo de 7 dias",
         caption = "Fonte: Ministério da Saúde e basedosdados.org") +
    ggplot2::theme_minimal() +
    ggplot2::theme(legend.position = "bottom") +
    ggplot2::scale_y_continuous(labels = scales::label_number_si())
    # ggplot2::scale_fill_brewer(palette = "Set1")
  
}