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")