Simple exploration of Crossref journal list

Downloaded the Crossref list of journals from http://www.crossref.org/titleList/. Very simple exploration.

Load the data…

setwd("~/code/journal-metadata")

d <- read.csv('titleFile.csv')
# titles are sometimes wrapped in loads of quotes
d$JournalTitle <- gsub(d$JournalTitle, pattern="\"", replacement="")

Number of journals per publisher for the top 50 publishers, sorted descending…

Number of journals by subject for top 50 subjects, excluding journals with no annotated subjects, sorted descending…