Plot unemployment by education level in OECD countries, 2015

plot_unempl.R

library(tidyverse)
unempl <- read.csv("unempl_education_2015_oecd.csv") %>%
  select(-c(INDICATOR, MEASURE, FREQUENCY, TIME, Flag.Codes)) %>%
  rename(country = LOCATION) %>%
  filter(country != 'JPN') %>%
  spread(SUBJECT, Value) %>%
  rename(tertiary = TRY, `upper secondary` = UPPSRY_NTRY) %>%
  mutate(delta = tertiary - `upper secondary`) %>%
  arrange(`upper secondary`) %>%
  mutate(x=1:n())

p <- unempl %>%
  ggplot(aes(x)) +
    geom_point(aes(y = tertiary, colour = 'tertiary')) +
    geom_point(aes(y = `upper secondary`, colour = 'upper secondary')) +
    geom_text(aes(x=x, y=0, label=country), angle=90, nudge_y = -1.2) +
    annotate('rect', xmin = unempl$x - 0.35, xmax = unempl$x + 0.35, ymin = 0, ymax = 30, alpha = 0.07) +
    guides(col = guide_legend(title = 'Type of education \n completed')) +
    scale_x_discrete(breaks=NULL) +
    scale_color_brewer(type = 'qual') +
    xlab('') + ylab('unemployment rate') +
    theme_minimal()
p

ggsave("unemployment_by_education.png")

unempl_education_2015_oecd.csv