library(ggplot2)
library(maps)
library(ggthemes)
library(mapdata)
library(raster)
## Loading required package: sp
library(rgeos)
## rgeos version: 0.3-8, (SVN revision 460)
##  GEOS runtime version: 3.4.2-CAPI-1.8.2 r3921 
##  Polygon checking: TRUE
world <- map_data("world")

# intercourse the penguins
world <- world[world$region != "Antarctica",]

# Winkel-Tripel -----------------------------------------------------------

gg <- ggplot()
gg <- gg + geom_map(data=world, map=world,
                    aes(x=long, y=lat, map_id=region))
gg <- gg + coord_proj("+proj=wintri")
gg <- gg + theme_map()
gg

# Robinson ----------------------------------------------------------------

gg <- ggplot()
gg <- gg + geom_map(data=world, map=world,
                    aes(x=long, y=lat, map_id=region))
gg <- gg + coord_proj("+proj=robin +lon_0=0 +x_0=0 +y_0=0 +ellps=WGS84 +datum=WGS84 +units=m +no_defs")
gg <- gg + theme_map()
gg

# Eckert IV (best area preserving) ----------------------------------------

gg <- ggplot()
gg <- gg + geom_map(data=world, map=world,
                    aes(x=long, y=lat, map_id=region))
gg <- gg + coord_proj("+proj=eck4")
gg <- gg + theme_map()
gg