Using Quandl for the first time:

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(ggplot2)
data_series <- Quandl("GOOG/NASDAQ_AAPL", start_date = "2005-01-01")[,c(1,5)]
my.plot <- ggplot(data=data_series, aes(x=Date, y=Close))+
  geom_line(color="#FAB521") + 
  theme(panel.background = element_rect(fill='#393939'),
                                     panel.grid.major.x = element_blank(),
                                     panel.grid.major.y = element_line(colour = 'white', size=0.1),
                                     panel.grid.minor = element_line(colour = 'white', size=0.1)) +
xlab("Date") + ylab("Closing Price") + ggtitle("AAPL")
my.plot