fulltext_publishing_history.md

another fulltext example? Yeppers!

This time, let's visualize publishing history across lots of papers (1000 in this case)

Installation, loading

install.packages("devtools")
devtools::install_github("ropensci/fulltext")

library("fulltext")
library("ggplot2")
library("dplyr")

the example

Get some data

opts <- list(fq=list('doc_type:full',"article_type:\"research article\""))
x <- ft_search(query='ecology', from='plos', limit=1000, plosopts = opts)$plos$data$id %>% 
  ft_get(from = "plos") 

Get history data, add new column, then plot

x %>% 
  chunks(c("doi","history")) %>% 
  tabularize() %>% 
  .$plos %>% 
  mutate(diff = as.numeric(history.accepted-history.received)) %>% 
  ggplot(aes(x = diff)) +
    geom_histogram(binwidth = 10) +
    theme_grey(base_size = 20) +
    labs(x="Days between recieved and accepted")

booya! 🚀