This should be same as the original charts of “Nasdaq 100 Index 1985/11/01-2012/06/29”

library(dcStockR)
library(httr)
library(lubridate)

Get from dc-js’s repo.

res <- GET("https://github.com/dc-js/dc.js/raw/master/web/ndx.csv")
ndx <- content(res, type = "text/csv")
ndx$date <- as.character(mdy(ndx$date))

yearlyBubbleChart

dc(ndx, "yearlyBubbleChart")

dc(ndx, "gainOrLossChart")

dc(ndx, "quarterChart")

dc(ndx, "dayOfWeekChart")

dc(ndx, "fluctuationChart")

dc(ndx, "moveChart")

dc(ndx, "dataCount")

dc(ndx, "dataTable")