Plotly

library(quantmod)
library(plotly)
library(dplyr)

data <- data.frame(getSymbols("AAPL", src = "google"))
ds<-data.frame(Date = index(eval(AAPL)),AAPL[,4])


plot_ly(ds, x =~ds$Date) %>% 
  add_lines( y =~ds[,2], name = "AAPL") %>% 
  layout(
    title = "Stock prices",
    xaxis = list(
      rangeselector = list(
        buttons = list(
          list(
            count = 1,
            label = "1 month",
            step = "month",
            stepmode = "backward"
          ),
          list(
            count = 3, 
            label = "3 month",
            step = "month",
            stepmode = "backward"),
          list(
            count = 6,
            label = "6 month",
            step = "month",
            stepmode = "backward"),
          list(
            count = 12,
            label = "1 year",
            step = "month",
            stepmode = "backward"
          ),
          list(
            count = 60,
            label = "5 year",
            step = "month",
            stepmode = "backward"
          )
        )), title = "Date"),
    rangeslider = list(type = "date"),
    yaxis = list(title = "Price")
)