library(gisland) library(tidyverse) gisland::stratas.sp %>% ggplot(aes(long, lat, group = group, fill = as.factor(id))) + geom_polygon() + geom_path(colour = "white") + coord_quickmap() + theme_void() + ggmisc::scale_fill_crayola() + theme(legend.position = "none")
gisland::stratasnew.sp %>% ggplot(aes(long, lat, group = group, fill = as.factor(id))) + geom_polygon() + geom_path(colour = "white") + coord_quickmap() + theme_void() + ggmisc::scale_fill_crayola() + theme(legend.position = "none")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.