An R script to extract a list of journal names for the articles in my zotero library.

Zotero_extract_journal_names.R

library("RSQLite")


# connect to zotero database
pathToZotero <- "~/Zotero"  # change this for your setup

m <- dbDriver("SQLite")
con <- dbConnect(m, file.path(pathToZotero, "zotero.sqlite"))

# extract list of journals
out <- dbGetQuery(con, "SELECT itemDataValues.value FROM    itemDataValues JOIN    itemData on itemDataValues.valueID = itemData.valueID WHERE   itemData.fieldID = 12")[,1]

# Sort in order from most read to least
count <- sort(table(out), decreasing=TRUE)

# View top 30
head(count, 30)
# plot
plot(count, xlim=c(1,50), type='l', xaxs="i", yaxs="i", xlab = "rank")
dbDisconnect(con)

# print unique list of journal names to file
write.csv(sort(unique(out)), "journal_names.csv")