Code used to download and create plot Google stock price

library(quantmod);library(plotly)
getSymbols('GOOG') 

## [1] "GOOG"

mGoog<-to.monthly(GOOG)
googOpen<-Op(mGoog)
ts1<-ts(googOpen,frequency = 12)

x <- list(title = "Year")
y <- list(title = "Price (USD)")
fig<-plot_ly(y = ts1, x = time(googOpen),mode = "lines")
fig <- fig %>% layout(xaxis = x, yaxis = y)

Plot of opening price of Google stock