R/plotTempoDupl.R

In covid19br/now_fcts: Auxiliary functions for analyzing COVID-19 data from different sources

# Funcao para calcular o tempo de duplicacao
#' Title
#'
#' @param x df.td
#' @param ... ...
#' @export
#'
plotTempoDupl <- function(x, ...) {#data.frame com tempo de duplicacao
    df.td <- x
    plot <- df.td %>%
        mutate(data = as.Date(data)) %>%
        ggplot(aes(x = data, y = estimativa)) +
        geom_ribbon(aes(ymin = ic.inf, ymax = ic.sup), fill = "lightgrey") +
        geom_line(size = 1.25, colour = RColorBrewer::brewer.pal(3, "Dark2")[1]) +
        scale_x_date(date_labels = "%d/%b", name = "") +
        # coloca coordenada cartesiana para resolver o problema do lim
        coord_cartesian(ylim = c(0, 100)) +
        #ylim(c(0, max(df.td$ic.sup)))
        ylab(paste0("Tempo de duplica", "\u00e7",  "\u00e3", "o (dias)")) +
        themeObservatorio()
    plot
}