Plot of Opening Price for Google Stock
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)
fig