2018: A Shape Odyssy – Thinking in spatial patterns

library(sf)
library(lwgeom)
library(spData)
library(tidyverse)

proj_names = st_proj_info()$name

reproject = function(name){
  new_crs = paste0("+proj=", name)
  world_reproj = st_transform_proj(world, crs = new_crs)
  png(paste0("f/", name, ".png"))
  plot(world_reproj$geom)
  dev.off()
  # p = ggplot() + geom_sf(data = world_reproj) + ggtitle(name)
  # ggsave(paste0("f/", name, ".png"))
}

sreproject = safely(reproject)
proj_names %>% map(~sreproject(.))

 
# proj_names[c(120, 126)]

Reuse

CC BY 4.0

Citation

BibTeX citation:

@online{nowosad2018,
  author = {Nowosad, Jakub and Nowosad, Jakub},
  title = {2018: {A} {Shape} {Odyssy}},
  date = {2018-03-25},
  url = {https://jakubnowosad.com/posts/drafts/XXXX-XX-XX-2018-a-shape-odyssy.html},
  langid = {en}
}

For attribution, please cite this work as:

Nowosad, Jakub, and Jakub Nowosad. 2018. “2018: A Shape Odyssy.” March 25, 2018. https://jakubnowosad.com/posts/drafts/XXXX-XX-XX-2018-a-shape-odyssy.html.