Create Standard SI Map
Arguments
- ...
inherits parameters from
si_style()
Examples
if (FALSE) { # \dontrun{
library(systemfonts)
library(tidyverse)
library(glitr)
library(gisr)
library(sf)
sfdf <- gisr::get_admin1("Nigeria") %>%
select(name) %>%
mutate(value = runif(nrow(.), 0, 1))
ggplot() +
geom_sf(data = sfdf,
aes(fill = value),
color = grey10k,
size = .1) +
scale_fill_si(palette = "genoas",
discrete = FALSE,
limits = c(0, 1),
labels = scales::percent) +
labs(title = "NIGERIA - % OF PLHIV BY STATE",
subtitle = "States from XYZ Region are the most hit by HIV/AIDS",
caption = base::paste0("Produced by OHA/SIEI/SI, ON ", base::Sys.Date())) +
si_style_map() +
si_legend_fill()
} # }