world <- ggplot2::map_data("world")
world <- world[world$region != "Antarctica",]
gg <- ggplot()
gg <- gg + geom_cartogram(data=world, map=world,
aes(x=long, y=lat, map_id=region))
gg <- gg + coord_proj("+proj=wintri")
gg
#> Warning: range backtransformation not implemented in this coord; results
#> may be wrong.
#> Warning: range calculation not implemented in this coord; results may be
#> wrong.