knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(sf) library(cwi) library(ggplot2) theme_set(theme_void() + theme(plot.title = element_text(size = 11)))
There are too many regions stored here now that the state is switching to COGs instead of counties. Here's a visual reference to them. Note that Greater Hartford and the Capitol Region COG are the same, as are Greater Bridgeport and Connecticut Metro COG.
purrr::iwalk(cwi::regions, function(towns, reg) { sf <- dplyr::mutate(cwi::town_sf, region = name %in% towns) p <- ggplot(sf, aes(fill = region)) + geom_sf(linewidth = 0.2, color = "gray10") + scale_fill_manual(values = c("TRUE" = "mediumorchid", "FALSE" = "gray90"), guide = "none") + # coord_sf(ndiscr = 0) + labs(title = reg) print(p) })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.