timeline resume plot for aakash

job_tl.R

library(ggplot2)

jobs <- data.frame(start=c(2000, 2006, 2008, 2009, 2014),
                   end  =c(2005, 2009, 2010, 2015, 2015),
                   idx = rev(seq(5)),
                   name =as.ordered(c("job a", 'job b', 'job c', 'job d', 'job e')))

g.job <- ggplot(jobs)+
  geom_rect(aes(xmin=start, xmax=end, ymin=idx, ymax=idx+1, fill=name))+
  scale_fill_grey(start=0, end=0.8)+
  theme_minimal()+
  theme(
    axis.text.y = element_blank(),
    panel.grid = element_blank(),
    legend.position='none',
    axis.ticks.x = element_line(),
  )

ggsave("~/aakash_jobs.pdf", g.job, width=1.5, height=3, unit="pt")