1 # the last line is projected based on citations to the end of october
2 # (almost certainly conservative)
5 d <- read.csv("wikipedia_citations.txt",header=F)
6 colnames(d) <- c("year", "citations")
8 d <- d[1:(dim(d)[1]-1),]
10 # print the total number of citations
13 # generate and print a graph
14 # p <- qplot(year, citations, data=d) +
15 # geom_line(colour="blue") + geom_point(colour="blue")
17 p <- qplot(factor(year), citations, data=d, geom="bar") + geom_bar(stat="identity", fill=I("darkblue"))
18 p <- p + scale_x_discrete("Year") + scale_y_continuous("Number of Papers")
20 pdf("citations_by_year.pdf", width=7.5, height=5.3)
25 ##########################################################3
27 # import data from dario
28 d <- read.csv("Wikipedia publications - Data.csv")
31 colnames(d)[1] <- "date"
33 d <- d[!d$date == "2013 to date",]
34 d$date <- as.factor(d$date)
37 qplot(date, value, data=melt(d), group=variable, geom="line") +
38 aes(colour=variable) + scale_y_log10()