# link to dataset can be found here: //goo.gl/nkZK69
dat <- read.csv('~/Downloads/data-eVVpi.csv')
names(dat)[1] <- 'date'
datm <- reshape2::melt(dat)
library(lubridate)
datm <- transform(datm, date2 = as.numeric(as.POSIXct(
    myd(paste(date, '01', sep = '-'))
))*1000)
require(rCharts)
n1 <- nPlot(value ~ date2, data = datm, group = 'variable', 
  type = 'lineChart'
)
n1$xAxis(
  tickFormat = "#! function(d){
    return d3.time.format('%b %Y')(new Date(d))
  } !#" 
)
n1$set(disabled = c(F, T, T, T , T, T, T, T, F))
n1