ebola <- load_epidata('ebola')
#> ℹ ebola does not have any extracted outbreaks
#> information. Outbreaks will be set to NULL.
#> Rows: 107 Columns: 2
#> ── Column specification ────────────────────────────────────────────────────────
#> Delimiter: ";"
#> chr (2): parameter_type_short, parameter_type_full
#>
#> ℹ Use `spec()` to retrieve the full column specification for this data.
#> ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
#> ✔ Data loaded for ebola
params <- ebola[["params"]]
params <- filter_cols(params, "article_qa_score", funs = ">", vals = "50")
forest_plot_rt(params, col_by = "population_country", shape_by = "parameter_value_type")
#> Warning: Removed 5 rows containing missing values or values outside the scale range
#> (`geom_point()`).
forest_plot_r0(params, col_by = "population_country", shape_by = "parameter_value_type")
#> Warning: Removed 9 rows containing missing values or values outside the scale range
#> (`geom_point()`).
