library(ggplot2) # devtools::install_github("hadley/ggplot2)
library(ggalt) # devtools::install_github("hrbrmstr/ggalt)
suppressMessages(world <- map_data("world"))
gg <- ggplot()
gg <- gg + geom_map(data=world, map=world,
aes(x=long, y=lat, map_id=region))
gg + coord_proj("+proj=wintri") + labs(title="Winkel Tripel")
gg + coord_proj("+proj=robin +lon_0=0") + labs(title="Robinson")
gg + coord_proj("+proj=wag5 +lon_0=0") + labs(title="Wagner V")
gg + coord_proj("+proj=latlong +lon_0=0") + labs(title="Plate Carrée")
gg + coord_proj("+proj=mill +lon_0=0") + labs(title="Miller cylindrical I")
gg + coord_proj("+proj=moll +lon_0=0") + labs(title="Mollweide")
gg + coord_proj("+proj=hammer +lon_0=0") + labs(title="Hammer (or Hammer-Aitoff)")
gg + coord_proj("+proj=boggs +lon_0=0") + labs(title="Boggs Eumorphic")
gg + coord_proj("+proj=sinu +lon_0=0") + labs(title="Sinusoidal")
gg + coord_proj("+proj=eck4 +lon_0=0") + labs(title="Eckert IV")
gg + coord_proj("+proj=wag4 +lon_0=0") + labs(title="Wagner IV (or Putnins P2')")
gg + coord_proj("+proj=mbtfpq +lon_0=0") + labs(title="Wagner VII (or Hammer-Wagner) ")
gg + coord_proj("+proj=mbtfpq +lon_0=0") + labs(title="McBryde-Thomas flat-polar quartic")
gg + coord_proj("+proj=eck6 +lon_0=0") + labs(title="Eckert VI")
gg + coord_proj("+proj=natearth") + labs(title="Natural Earth")
gg + coord_proj("+proj=vandg +lon_0=0 +x_0=0 +y_0=0 +R_A +a=6371000 +b=6371000 +units=m +no_defs") + labs(title="Van der Grinten I")
gg + coord_proj("+proj=qsc +units=m +a=6378137.0 +b=6356752.314245 +lat_0=0 +lon_0=0") + labs(title="Partial Quadrilateralized Spherical Cube (QSC)")
gg + coord_proj("+proj=tpeqd +lat_1=0 +lon_1=0 +lat_2=45.56 +lon_2=90.56") + labs(title="Two-point equidistant (relative to two arbitrary points)")
