World Unemployment levels

We explore unemployment rates across the globe in this project. The data for the analysis is available here. Developing countries generally have higher levels of unemployment with Zimbabwe in particular having the highest unemployment rate in the world.

#--------------
# LOAD PACKAGES
#--------------
library(tidyverse)
library(rvest)
library(stringr)
library(viridis)

#---------------------------
# SCRAPE DATA FROM WIKIPEDIA
#---------------------------
unmployment <- read_html("http://www.indexmundi.com/map/?v=74") %>%
  html_nodes("table")%>%
  .[[3]]%>%
  html_table() %>%
  as.tibble()%>%arrange(`Country Name`)%>%rename(country=`Country Name`) 
# INSPECT
unmployment%>%head()

#--------------
# GET WORLD MAP
#--------------
map.world <- map_data('world')

#----------------------------------------------------
# Get country names
# - we can use this list and cross-reference
#   with the country names in the scraped data
# - when we find names that are not the same between
#   this map data and the scraped data, we can recode
#   the values
#----------------------------------------------------
map_data('world') %>% group_by(region) %>% summarise() %>% print(n = Inf)

#--------------------------------------------
# RECODE COUNTRY NAMES
# - some of the country names do not match
#   the names we will use later in our map
# - we will re-code so that the data matches
#   the names in the world map
#--------------------------------------------
unmployment<- unmployment %>% mutate(country = if_else(country == "Canada (2010)", 'Canada'
                                      ,if_else(country == "People's Republic of China", "China"
                                      ,if_else(country == "United States", "USA"
                                      ,if_else(country == "DR Congo","Democratic Republic of the Congo", country))))
                                )

#-----------------------------------------
# JOIN DATA
# - join the map data and the scraped-data
#-----------------------------------------
unmployment_data <- left_join(map.world, unmployment, by = c('region' = 'country'))
unmployment_data%>%head()

ggplot(data = unmployment_data, aes(x = long, y = lat, group = group)) +
  geom_polygon(aes(fill = `Unemployment rate (%)`)) +
  scale_fill_viridis(option = 'plasma')+labs(title="Unemployment Rates Accross the World",x="",y="")+
 
  theme(text = element_text(family = 'Gill Sans', color = '#EEEEEE')
        ,plot.title = element_text(size = 28)
        ,plot.subtitle = element_text(size = 14)
        ,axis.ticks = element_blank()
        ,axis.text = element_blank()
        ,panel.grid = element_blank()
        ,panel.background = element_rect(fill = '#333333')
        ,plot.background = element_rect(fill = '#333333')
        ,legend.position = c(.18,.36)
        ,legend.background = element_blank()
        ,legend.key = element_blank()
        )

ggplot(data = unmployment_data, aes(x = long, y = lat, group = group)) +
  geom_polygon(aes(fill = `Unemployment rate (%)`)) +
  scale_fill_gradientn(colours = c('#461863','#404E88','#2A8A8C','#7FD157','#F9E53F')
                       ,values = scales::rescale(c(5,10,20,40,95))
                       ,labels = comma
                       ,breaks = c(5,10,20,40,95)
                       ) +
  guides(fill = guide_legend(reverse = T)) +
labs(title="Unemployment Rates Accross the World",x="",y="")+
 
  theme(text = element_text(family = 'Gill Sans', color = '#EEEEEE')
        ,plot.title = element_text(size = 28)
        ,plot.subtitle = element_text(size = 14)
        ,axis.ticks = element_blank()
        ,axis.text = element_blank()
        ,panel.grid = element_blank()
        ,panel.background = element_rect(fill = '#333333')
        ,plot.background = element_rect(fill = '#333333')
        ,legend.position = c(.18,.36)
        ,legend.background = element_blank()
        ,legend.key = element_blank()
        )+
  
  annotate(geom = 'text'
           ,label = 'Source:  http://www.indexmundi.com/map/?v=74'
           ,x = 18, y = -55
           ,size = 3
           ,family = 'Gill Sans'
           ,color = '#CCCCCC'
           ,hjust = 'left'
           )