require(rCharts)
data(economics, package = 'ggplot2')
ecm <- reshape2::melt(economics[,c('date', 'uempmed', 'psavert')], id = 'date')
p2 <- nPlot(value ~ date, group = 'variable', data = ecm, type = 'stackedAreaChart')
p2