Human Capital Index Maps

Mapping the Human Capital Index Various Ways in R

Robert McDonnell

3 minute read

I’m not too sure that the Human Capital Index is a reliable measure of what it’s supposed to measure, but I’m convinced by Deirdre McCloskey’s eloquent arguments that it is Human Capital, or ingenuity, in less dry terms, that has made the modern world (in conjunction with freedom and some basic legal structures). However, all that interesting talk aside, there are now quite a few new ways to make maps in R. The sf package has synced up with the dev version of ggplot2 to produce geom_sf(), tmaps brings some cool themes to ggplot maps and mapmate has been used to produce some stunning visualizations. Hence, I thought I’d use the HCI to check out these new mapulações.

library(rvest)
library(ggplot2)
library(dplyr)

hci <- read_html("http://reports.weforum.org/human-capital-report-2016/rankings/") %>%
  html_node("table") %>% html_table() %>% 
  rename(country = Economy, rank = `Overall Rank`, human_capital = `Overall Score`) %>% 
  mutate(country = recode(country, 
                          'Russian Federation' = 'Russia',
                          'United Kingdom' = 'UK',
                          'United States' = 'USA',
                          'Korea, Rep.' = 'South Korea',
                          'Kyrgyz Republic' = 'Kyrgyzstan',
                          'Slovak Republic' = 'Slovakia',
                          'Macedonia, FYR' = 'Macedonia',
                          'Iran, Islamic Rep.' = 'Iran',
                          'Trinidad and Tobago' = 'Trinidad',
                          'Lao PDR' = 'Laos',
                          'CÙte d’Ivoire' = 'Ivory Coast'))

I used to make maps in ggplot style with shapefiles, fortify and so on. The upside is that there are lots of shapefiles available, but the downsides are that the dataframes you end up with are usually pretty big. There’s a map_data() function in the ggplot2 package that grabs some polygon data. The vanilla map we can make with these functions looks like this (with theme_minimal() to prettify things):

globe <- map_data("world") %>% rename(country = region)


world <- left_join(globe, hci)


ggplot(data = world, aes(x = long, y = lat, group = group)) +
  geom_polygon(aes(fill = human_capital)) + 
  theme_minimal()

Not bad. You can mess around with the projections using coord_map(), but it still feels a long way from Mike Bostock’s amazing d3 maps.

ggplot(data = world, aes(x = long, y = lat, group = group)) +
  geom_polygon(aes(fill = human_capital)) +
  coord_map(projection = "gilbert") + 
  theme_minimal()

ggplot(data = world, aes(x = long, y = lat, group = group)) +
  geom_polygon(aes(fill = human_capital)) +
  coord_map(projection = "azequidistant") + 
  theme_minimal()

So let’s have a goo at the sf method. I’m getting a dataset of world ‘geometry’ coordinates (a list-column in the sf dataframe) from the rnaturalearth package.

library(rnaturalearth)
library(sf)

countries <- ne_countries(returnclass = "sf") %>% 
  rename(country = sovereignt) %>% 
  select(country, geometry) %>% 
  mutate(country = recode(country, 
                          "United States of America" = "USA",
                          "United Kingdom" = "UK")) %>% 
  left_join(hci)

ggplot(countries) + 
  geom_sf(aes(fill = human_capital), size = 0.2) +
  theme_minimal()

The sf map doesn’t look particularly better or worse than that created with geom_polygon(), although the process feels more intuitive to me. The dataframe feels ‘tidier’, as it still has the country as the unit of analysis – in other words, the dataframe we’re using has 177 rows, as opposed to tens of thousands. Let’s try some themes.

library(tmap)

tm_shape(countries) +
    tm_polygons("human_capital", title="Human Capital Index") +
tm_format_World() +
tm_style_grey()

Ooh, that’s nice. The theme actually makes it easier to see what’s going on: the difference between Canada & the US was not so apparent before. (Canada’s score is 81.95 as opposed to 78.86 for the USA…so precise, these numbers.)

comments powered by Disqus