Skip to content

Instantly share code, notes, and snippets.

@jlehtoma

jlehtoma/to_equal_area.R

Created September 14, 2015 10:47
Show Gist options
  • Save jlehtoma/4f17173589562701c4c3 to your computer and use it in GitHub Desktop.
Save jlehtoma/4f17173589562701c4c3 to your computer and use it in GitHub Desktop.
Download ZIP
Equal area projections of the world in R
Raw
to_equal_area.R
library(rworldmap)
library(rgdal)
# Latlon
world_map_wgs84 <- getMap()
plot(world_map_wgs84, main = "WGS84")
proj4string(world_map_wgs84)
# Mollweide
world_map_mollweide <- spTransform(world_map_wgs84, CRS("+proj=moll"))
plot(world_map_mollweide, main = "Mollweide")
proj4string(world_map_mollweide)
# Aitoff
world_map_aitoff <- spTransform(world_map_wgs84, CRS("+proj=aitoff"))
plot(world_map_aitoff, main = "Aitoff")
proj4string(world_map_aitoff)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment