example.Rmd

---
title: "dcStockR Test"
author: "Hiroaki Yutani"
date: "2/17/2015"
output: html_document
---

This should be same as the original charts of ["Nasdaq 100 Index 1985/11/01-2012/06/29"](http://dc-js.github.io/dc.js/)

```{r}
library(dcStockR)
library(httr)
library(lubridate)
```

Get data from dc-js's repo.

```{r, cache=TRUE}
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))
```

Draw charts.

```{r}
# yearlyBubbleChart

dc(ndx, "yearlyBubbleChart", title = "Yearly Performance (radius: fluctuation/index ratio, color: gain/loss)")

# gainOrLossChart
dc(ndx, "gainOrLossChart", title = "Days by Gain/Loss", height = 300)

# quarterChart
dc(ndx, "quarterChart", title = "Quarters", height = 300)

# dayOfWeekChart
dc(ndx, "dayOfWeekChart", title = "Day of Week", height = 300)

# fluctuationChart
dc(ndx, "fluctuationChart", title = "Days by Fluctuation(%)", height = 300)

# moveChart
dc(ndx, "moveChart", title = "Monthly Index Abs Move & Volume/500,000 Chart")

# dataCount
dc(ndx, "dataCount")

# dataTable
dc(ndx, "dataTable")
```