who_sitrep_import.Rd
clean and plot who sitrep
who_sitrep_import(update) who_sitrep_cleandb(data) who_sitrep_filter(data, country_region = "all") who_sitrep_ggline(data, country_region = country_region, y_cum_value, color, n_breaks = 5) who_sitrep_ggbar(data, country_region = country_region, y_inc_value, fill, n_breaks = 5) who_sitrep_country_report(update, country_region)
update | string of date to update |
---|---|
data | input of raw who dataset |
country_region | name of country region |
y_cum_value | cumulative variable |
color | colo of attribute |
n_breaks | y axis breaks |
y_inc_value | incidence variable |
fill | fill of attribute |
data | input of raw who dataset |
report per country_region using digitalized who sitreps
who_sitrep_import
: import data from github
who_sitrep_cleandb
: clean who dataset
who_sitrep_filter
: clean who dataset
who_sitrep_ggline
: plot a ggplot geom_line
who_sitrep_ggbar
: plot a ggplot geom_col
who_sitrep_country_report
: create a full unified report
if (FALSE) { library(covid19viz) library(tidyverse) who_sitrep <- who_sitrep_import(update = "2020-03-10") who_sitrep %>% who_sitrep_cleandb() %>% filter(country_region=="Peru") who_sitrep %>% who_sitrep_cleandb() %>% who_sitrep_filter(country_region = "Peru") %>% who_sitrep_ggline(y_cum_value = n_cum_conf, color = class, n_breaks = 10) }