(This is still a work in progress)

devtools::install_github("yutannihilation/metricsgraphics")
## Downloading github repo yutannihilation/metricsgraphics@master
## Installing metricsgraphics
## '/usr/lib/R/bin/R' --vanilla CMD INSTALL  \
##   '/tmp/Rtmpdj1oHn/devtools1ad359f35515/yutannihilation-metricsgraphics-80faba5'  \
##   --library='/home/vagrant/R/x86_64-pc-linux-gnu-library/3.1'  \
##   --install-tests
library(metricsgraphics)
library(wikipediatrend)
library(dplyr)
## 
## Attaching package: 'dplyr'
## 
## The following object is masked from 'package:stats':
## 
##     filter
## 
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
wp_trend() %>%
  transmute(date = as.character(date), value = count) %>%
  MG -> p
## 
##     With option 'friendly' set to FALSE subsequent requests 
##     of the same wikipedia-entry cause the server -- which is kindly 
##     providing information for you -- to work hard to get the same 
##     stuff over and over and over and over again. Do not bore 
##     the server - be friendly. 
##     
##     See: '?wp_trend'
##     
## http://stats.grok.se/json/en/201412/Peter_principle
## http://stats.grok.se/json/en/201501/Peter_principle
p

p + MG_layout(width = 800)

p + MG_layout(height = 300, right = 20) + MG_graphic(chart_type = "point")