petra
/
commute
Watch 1
Star 0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Activity
There and Back Again competition entry https://shiny.petras.space/commute/
rstats
rshiny
census
competition
leaflet
javascript
stats-nz
3 Commits
1 Branch
Tree: 6aec62f615
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '6aec62f615'
${ noResults }
commute/maps.R

maps.R 668B
History Raw

123456789101112131415161718192021 
  1. library(rgdal)

  2. library(rmapshaper)

  3. 

  4. sf <- readOGR(dsn = "shapefiles/statsnzstatistical-area-2-2018-generalised-SHP/")

  5. 

  6. plot(sf, xlim=c(1750000, 1760000), ylim=c(5430000, 5440000))

  7. # insf <- ms_innerlines(sf)

  8. 

  9. ssf1 <- ms_simplify(sf)

  10. plot(ssf1, xlim=c(1750000, 1760000), ylim=c(5430000, 5440000))

  11. 

  12. ssf2.5 <- ms_simplify(sf, 0.025)

  13. plot(ssf2.5, xlim=c(1750000, 1760000), ylim=c(5430000, 5440000))

  14. 

  15. ssf2 <- ms_simplify(sf, 0.01)

  16. plot(ssf2, xlim=c(1750000, 1760000), ylim=c(5430000, 5440000))

  17. 

  18. ssf3 <- ms_simplify(sf, 0.002)

  19. plot(ssf3, xlim=c(1750000, 1760000), ylim=c(5430000, 5440000))

  20. 

  21. writeOGR(ssf2, dsn = "shapefiles/sa2001/", layer = "SA2", driver="ESRI Shapefile")