1. require(quantmod)
  2. require(reshape2)
  3. require(rCharts)
  5. #get sp500 prices from Yahoo! Finance
  6. sp500 <- getSymbols("^GSPC", auto.assign = FALSE)
  7. #add 200 day moving average
  8. sp500$ma <- runMean( sp500[,4], n = 200)
  9. #get date, close, and 200day mov avg as a data.frame
  10. sp500.df <- data.frame(index(sp500),coredata(sp500)[,c(4,7)])
  11. colnames(sp500.df) <- c("date","close","200dMovAvg")
  12. #melt to long format
  13. sp500.melt <- melt( sp500.df, id.vars = 1 )
  14. #get dates to a javascript favorite format
  15. sp500.melt$date <- as.numeric(as.POSIXct(sp500.melt$date)) * 1000
  17. #do a NVD3 lineWithFocus chart
  18. n1 <- nPlot(
  19.   value ~ date,
  20.   group = "variable",
  21.   data = sp500.melt,
  22.   type = "lineWithFocusChart",
  23.   height = 400,
  24.   width = 600
  25. )
  26. #set xAxis up to format dates
  27. n1$xAxis(tickFormat = "#!function(d) {return d3.time.format('%b %d, %Y')(new Date(d))}!#")
  28. #xAxis auto sets x2Axis, but I like a different format for x2Axis
  29. n1$x2Axis(tickFormat = "#!function(d) {return d3.time.format('%Y')(new Date(d))}!#")
  30. #set yAxis up to format numbers
  31. n1$yAxis(tickFormat = "#!function(d) {return d3.format('0,.0')(d)}!#")
  32. n1