library(sf)
list(greater_manchester) %>%
st_polygon() %>%
st_sfc(crs = 4326) %>%
plot()
polyfill(greater_manchester, 6) %>%
h3_to_geo_boundary() %>%
geo_boundary_to_sf() %>%
plot(add = TRUE)
nc <- system.file("shape/nc.shp", package = "sf") %>%
st_read(quiet = TRUE)
st_geometry(nc) %>%
plot(border = "red")
polyfill(nc, 5) %>% unlist() %>%
h3_to_geo_boundary() %>%
geo_boundary_to_sf() %>%
plot(add = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.