publication_per_year_from_clipboard.R

#Creates a histogram of publications per year from text currently in the clipboard.  Must be edited for mac or windows.

require(stringr)
require(ggplot2)

#on windows
#text <- readLines("clipboard")


#for a mac
text <- readLines(textConnection(system("pbpaste",intern=TRUE)))

years <- as.numeric(na.omit(unlist(str_extract_all(text,"(19|20)[0-9][0-9]"))))

years <- years[years<2020]
years <- years[years>1950]

year_table <- data.frame(table(years))

p <- ggplot(data=year_table,
  aes(x=as.numeric(as.character(years)),
      y=Freq))+
  geom_bar(stat="identity")+
  xlab("Years")+
  ylab("Number of articles")

print(p)