Trends plot

Trend_plotter.R

#!/usr/bin/env Rscript

library(ggplot2)

trend = read.csv("/home/francisco/MEOCloud/Science/PhD/Thesis/Subdocs/C1_assets/Bioinformatics_pubmed.tsv", sep="\t")

ggplot(data=trend, aes(x=Year, y=X.000)) +
       geom_bar(stat="identity", fill = I("lightblue")) +
       guides(fill=FALSE) +
       xlab("Year") + ylab("Number of papers with term per 100K pubmed papers") +
       ggtitle("Pubmed Term 'Computational Biology' Trend") +
       scale_x_continuous(breaks=c(1980,1985,1990,1995,2000,2005,2010,2016))
ggsave('Trend.svg')