who_sitrep_import.Rdclean 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) }