library(rCharts)
library(reshape2)
seq(as.Date("2011-3-1"), by = "month", length.out = 12)
df <- data.frame(date= 2003:2014,
            v1 = runif(12,100,700),
            v2 = runif(12,10,70) ,
            v3 = -1*runif(12,3,15))
dat <- melt(df,id="date")
dat$date <- as.character(dat$date)
p <- dPlot(value ~ date,
      groups = "variable",
      data = dat,
      type = "area")
p$legend( x = 60, y = 10, width = 620, height = 20,
      horizontalAlign = "right")
p