# do search in pubmed on the web
# pubmed - "chronic lymphocytic leukaemia" or "chronic lymphocytic leukemia" or "CLL"
# get an option to download a csv file
The csv file needs to have the top line removed. I did this by opening in Excel and saving it again.
setwd("/Users/paulbrennan/Dropbox/R for Biochemists/PubMed")
data <- read.csv("timeline2.csv")
sum(data[2])
# 17,517 publications
library(ggplot2)
# draw a graph
ggplot(data, aes(year, count)) +
geom_line() +
ylab("Publications") + # y-label
xlab("Year") + # x-label
theme_bw()
Here is the output:
No comments:
Post a Comment