# NVD3 Sparkline with Custom Colors.
library(rCharts)
data(economics, package = 'ggplot2')
p16 <- nPlot(uempmed ~ date, data = economics, 
  type = 'sparklinePlus', height = 100, width = 500
)
p16$chart(xTickFormat="#! function(d) {
  return d3.time.format('%b %Y')(new Date( d * 86400000 ));
}!#")
p16$chart(color = list("#8BA870"))
p16