Generate KPI NPAFP bar chart summary

Generates a bar chart highlighting percentage of priority countries with 80% of 100,000+ under 15y pop districts achieving npAFP rate of >= 2/100,000.

Usage

generate_kpi_npafp_bar(c1, afp_data, output_path = Sys.getenv("KPI_FIGURES"))

Arguments

c1

tibble Output of generate_c1_table().

afp_data

tibble AFP dataset. List item of the output of get_all_polio_data().

output_path

str Folder location to output the image to.

Value

ggplot2 A barplot.

Examples

if (FALSE) { # \dontrun{
raw_data <- get_all_polio_data()
c1 <- generate_c1_table(raw_data, "2021-01-01", "2023-12-31", rolling = TRUE)
plot <- generate_kpi_npafp_bar(c1, raw_data$afp)
} # }