knitr::opts_chunk$set(echo = TRUE, message = FALSE, 
                      warning = FALSE, results = TRUE, 
                      comment = FALSE, 
                      fig.width = 5, 
                      fig.height = 5)
devtools::load_all()
library(coronabr)

Crescimento nacional no número de casos

dados <- get_corona_br(by_uf = TRUE)
plot_corona_br(df = dados, log = FALSE)

Entendendo o aumento diário

plot_corona_br(df = dados, tipo = "aumento")

Casos por estado brasileiro

Gráfico proporcional ao tamanho populacional (Casos por 100 mil habitantes)

plot_uf(df = dados, n = 7)

Gráfico com o número bruto de notificações

plot_uf(df = dados, prop_pop = FALSE, n = 7)

Gráfico com o número bruto de óbitos

plot_uf(df = dados, tipo = "obitos", prop_pop = FALSE, n = 7)

Gráfico com o número de óbitos por 100 mil habitantes

plot_uf(df = dados, tipo = "obitos", prop_pop = TRUE, n = 7)

Comparando estados específicos

plot_uf(df = dados, 
        tipo = "casos",
        prop_pop = TRUE,
        estados = c("AM", "CE", "PE", "SP"))


liibre/corona documentation built on Feb. 4, 2021, 10:41 a.m.