R API Binding to Stats.grok.se Server

Status

lines of R code: 316, lines of test code: 199

Development version

0.1.3 - 2017-03-22 / 21:09:01

Description

The 'http://stats.grok.se' server provides data and an 'API' for Wikipedia page view statistics from 2008 up to 2015. This package provides R bindings to the 'API'.

License

GPL (>= 2)
Peter Meissner [aut, cre], R Core Team [ctb]

Citation

citation("statsgrokse")

BibTex for citing

toBibtex(citation("statsgrokse"))

Installation

Stable version from CRAN:

install.packages("statsgrokse")

Latest development version from Github:

devtools::install_github("petermeissner/statsgrokse")

Usage

getting data

The workhorse of the package is the wp_trend() function:

library(statsgrokse)

pageviews <-   
  statsgrokse(
    page = "Edward_Snowden", 
    from = "2013-06-01", 
    to   = "2013-07-31", 
    lang = c("en","de")
  )
## http://stats.grok.se/json/en/201306/Edward_Snowden
## http://stats.grok.se/json/en/201307/Edward_Snowden
## http://stats.grok.se/json/de/201306/Edward_Snowden
## http://stats.grok.se/json/de/201307/Edward_Snowden

plotting data

pageviews <- pageviews[order(pageviews$lang, pageviews$date), ]

par(mfrow=c(1,2), oma = c(0, 0, 1, 0))

with(
  pageviews,
  {
    plot(date[lang=="en"], count[lang=="en"], type="l", xlab = "date", col="#183691")
    plot(date[lang=="de"], count[lang=="de"], type="l", xlab = "date", col="#183691")
  }
)
mtext("API Pageviews", line=-2, outer = TRUE, cex = 1.5)

par(mfrow=c(1,1), oma=c(0,0,0,0))