k <-c( .1, .32, .67, 1, 16.77 )/1000
f <- function(k){
ggplot2::ggplot() +
geom_sf(data = rmapshaper::ms_simplify(d, k)) +
theme_void()
}
t <- lapply(k, f)
g <- cowplot::plot_grid(t[[1]], t[[2]], t[[3]], t[[4]], t[[5]])
g
Keep Current with Arthur Welle
This Thread may be Removed Anytime!
Twitter may remove this content at anytime, convert it as a PDF, save and print for later use!
1) Follow Thread Reader App on Twitter so you can easily mention us!
2) Go to a Twitter thread (series of Tweets by the same owner) and mention us with a keyword "unroll"
@threadreaderapp unroll
You can practice here first or read more on our help page!