020004000600080001000012000-916136030.005.0010.0015.0020.000.0024.00uempmedpsavertStackedStreamExpanded

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