Plotting the world (gapminder data)

world_map.R

library(gapminder)
library(dplyr)
library(ggplot2)
library(ggthemes)


mapdata <- map_data("world") %>% 
  mutate(region = recode(region,
                         USA="United States",
                         UK="United Kingdom"))

gapminder %>% 
  filter(year==2007) %>% 
  ggplot() + 
  geom_map(aes(map_id=country, fill=lifeExp), map=mapdata) + 
  expand_limits(x = mapdata$long, y = mapdata$lat) +
  coord_map(projection = "mollweide", xlim = c(-180, 180)) + 
  ggthemes::theme_map()