PDB <- structure(list(Year = c(2014L, 2013L, 2012L, 2011L, 2010L, 2009L, 
2008L, 2007L, 2006L, 2005L, 2004L, 2003L, 2002L, 2001L, 2000L, 
1999L, 1998L, 1997L, 1996L, 1995L, 1994L, 1993L, 1992L, 1991L, 
1990L, 1989L, 1988L, 1987L, 1986L, 1985L, 1984L, 1983L, 1982L, 
1981L, 1980L, 1979L, 1978L, 1977L, 1976L, 2014L, 2013L, 2012L, 
2011L, 2010L, 2009L, 2008L, 2007L, 2006L, 2005L, 2004L, 2003L, 
2002L, 2001L, 2000L, 1999L, 1998L, 1997L, 1996L, 1995L, 1994L, 
1993L, 1992L, 1991L, 1990L, 1989L, 1988L, 1987L, 1986L, 1985L, 
1984L, 1983L, 1982L, 1981L, 1980L, 1979L, 1978L, 1977L, 1976L, 
2014L, 2013L, 2012L, 2011L, 2010L, 2009L, 2008L, 2007L, 2006L, 
2005L, 2004L, 2003L, 2002L, 2001L, 2000L, 1999L, 1998L, 1997L, 
2014L, 2013L, 2012L, 2011L, 2010L, 2009L, 2008L, 2007L, 2006L, 
2005L, 2004L, 2003L, 2002L, 2001L, 2000L, 1999L, 1998L, 1997L, 
1996L, 1995L, 1994L, 1993L, 1992L, 1991L, 1990L, 1989L, 1988L, 
1987L, 1986L), Yearly = c(9645L, 9373L, 8787L, 7955L, 7772L, 
7297L, 6911L, 7147L, 6422L, 5348L, 5152L, 4153L, 2999L, 2823L, 
2627L, 2356L, 2058L, 1565L, 1173L, 941L, 1289L, 696L, 192L, 187L, 
142L, 74L, 53L, 25L, 18L, 20L, 22L, 36L, 32L, 16L, 16L, 11L, 
6L, 23L, 13L, 8893L, 8743L, 8179L, 7372L, 7189L, 6671L, 6206L, 
6154L, 5523L, 4438L, 4397L, 3592L, 2530L, 2387L, 2234L, 1960L, 
1724L, 1234L, 981L, 748L, 1057L, 622L, 181L, 162L, 135L, 71L, 
52L, 25L, 17L, 20L, 22L, 36L, 32L, 16L, 7L, 11L, 6L, 23L, 13L, 
191L, 118L, 65L, 53L, 54L, 40L, 41L, 19L, 26L, 23L, 12L, 29L, 
24L, 9L, 11L, 1L, 0L, 1L, 554L, 506L, 537L, 523L, 521L, 567L, 
653L, 965L, 861L, 876L, 729L, 531L, 441L, 414L, 371L, 390L, 331L, 
329L, 188L, 190L, 222L, 74L, 11L, 23L, 7L, 2L, 0L, 0L, 1L), Category = structure(c(3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("Electron Microscopy", 
"NMR", "Total", "X-Ray"), class = "factor")), .Names = c("Year", 
"Yearly", "Category"), class = "data.frame", row.names = c(NA, 
-125L))

library(ggplot2)

ggplot(data=PDB,aes(x=Year, y=Yearly, colour=Category)) + geom_line(size=1) + labs(x="Year", y="Number of New Structures Per Year", title="Rate of Protein Structure Determination (Log Scale)", color="") + scale_x_continuous(breaks=c(seq(from=1976,to=2014,by=2))) +  theme_minimal() + theme(legend.position="bottom",axis.text.x = element_text(angle=45,hjust=1),axis.line = element_line(size = 0.5, linetype = "solid",colour = "black")) + scale_y_log10()

ggsave(file="PDB.pdf", width=7, height=5)