Source - https://fred.stlouisfed.org/tags/series?t=stock+market

          DATE   SP500 RU2000PR RU3000TR NASDAQ100 NASDAQCOM
2604 7/17/2018 2809.55  4193.28  8703.36   7403.89   7855.12
2605 7/18/2018 2815.62  4204.72  8723.82   7390.13   7854.44
2606 7/19/2018 2804.49  4228.19  8700.32   7352.36    7825.3
2607 7/20/2018 2801.83     4217   8688.4   7350.23    7820.2
2608 7/23/2018 2806.98  4220.99  8701.46   7371.78   7841.87
2609 7/24/2018  2820.4  4175.71   8720.2   7406.25   7840.77

library(plotly)
library(tidyr)
library(dplyr)

setwd("C:/Users/sc56603/DataScience/Developing Data Products/
      Assignment 2 - R Markdown Presentation & Plotly")
stocks <- read.csv("fredgraph.csv")
stocks$DATE <- as.Date(stocks$DATE, "%m/%d/%Y")
stocks$SP500 <- as.numeric(as.character(stocks$SP500))
stocks$RU2000PR <- as.numeric(as.character(stocks$RU2000PR))
stocks$RU3000TR <- as.numeric(as.character(stocks$RU3000TR))
stocks$NASDAQ100 <- as.numeric(as.character(stocks$NASDAQ100))
stocks$NASDAQCOM <- as.numeric(as.character(stocks$NASDAQCOM))
stocks <- stocks %>% gather(index, price, SP500:NASDAQCOM) 
plot_ly(stocks, x = ~DATE, y = ~price, color = ~index, 
        type = "scatter", mode = "lines")