R/obtn_state_map.R

In rfortherestofus/obtn: Oregon by the Numbers

obtn_state_map <- function(obtn_year, measure_to_plot = "State Map", plot_width = 7, plot_height = 5.25) {

obtn_boundaries_oregon_counties |>
  ggplot2::ggplot() +
  ggplot2::geom_sf(fill = tfff_light_green,
                   color = "white") +
  ggplot2::geom_sf_text(ggplot2::aes(label = geography),
                        color = tfff_dark_green,
                        family = "ProximaNova-Regular",
                        fontface = "plain",
                        size = 3) +
  ggplot2::theme_void()

obtn_save_plot(obtn_year, measure_to_plot, "Oregon", plot_width, plot_height)

}