NPR Viz Replication using ggplot2 and directlabels

README.md

nprviz.R

pkgs <- list('dplyr', 'tidyr', 'ggplot2', 'readr', 'directlabels', 'ggthemes');
for (pkg in pkgs) library(pkg, character.only = T)

read_csv("http://apps.npr.org/dailygraphics/graphics/women-cs/data.csv") %>%
  mutate_each(funs(as.numeric)) %>%
  gather('school', 'value', 2:5) %>%
  {ggplot(data = ., aes(x = date, y = value, color = school)) +
    geom_line() +
    theme_minimal() +
    scale_x_continuous(expand = c(0.3, 5))
  } %>%
  direct.label('last.bumpup')