On stratas

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")


einarhjorleifsson/fishdown documentation built on June 26, 2022, 2:31 p.m.