Global convergence in male life expectancy at birth since 1950

world-convergence-in-male-life-expectancy.R

################################################################################
#                                                    
# ikashnitsky.github.io 2017-07-17
# Trying ggjoy. 
# The world convergence in male life expectancy at birth since 1950
# Ilya Kashnitsky, [email protected]
#                                                  
################################################################################

library(tidyverse)
library(forcats)
library(wpp2015)
library(ggjoy)
library(viridis)
library(extrafont)

data(UNlocations)

countries <- UNlocations %>% 
        filter(location_type == 4) %>% 
        transmute(name = name %>% paste()) %>% 
        as_vector()

data(e0M) 

e0M %>% 
        filter(country %in% countries) %>% 
        select(-last.observed) %>% 
        gather(period, value, 3:15) %>% 
        ggplot(aes(x = value, y = period %>% fct_rev()))+
        geom_joy(aes(fill = period))+
        scale_fill_viridis(discrete = T, option = "B", direction = -1, 
                           begin = .1, end = .9)+
        labs(x = "Male life expectancy at birth",
             y = "Period",
             title = "The world convergence in male life expectancy at birth since 1950",
             subtitle = "Data: UNPD World Population Prospects 2015 Revision",
             caption = "ikashnitsky.github.io")+
        theme_minimal(base_family =  "Roboto Condensed", base_size = 15)+
        theme(legend.position = "none")

It's very interesting work. I've done something like this by mining Wikipedia data. I wonder would the results be close?

I got a similar error as PCK1992. I resolved it by re-installing ggjoy package. It had been working fine for me the other day and this was what fixed it. Could have also been the restart of RStudio too.

emilelatour that worked for me, too!