Quandl with Dygraphs

library(Quandl)
## Warning: package 'Quandl' was built under R version 3.2.3
## Loading required package: xts
## Loading required package: zoo
## 
## Attaching package: 'zoo'
## 
## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric
library(dygraphs)
data_series <- Quandl("GOOG/NASDAQ_AAPL", start_date = "2005-01-01")[,c(1,5)]
new_series <- data_series$Close
new_series <- as.data.frame(new_series)
names <- data_series$Date
rownames(new_series) <- names
dygraph(data=new_series, main="AAPL", xlab="Date", ylab="Closing Price", width=1000, height=900)