title: “R Markdown Presentation & Plotly” author: “Michelle Tan” date: “1/16/2018” output: ioslides_presentation ## Create a web page presentation using R Markdown that features a plot created with Plotly. Host your webpage on either GitHub Pages, RPubs, or NeoCities. Your webpage must contain the date that you created the document, and it must contain a plot created with Plotly. We would love to see you show off your creativity!

knitr::opts_chunk$set(echo = TRUE)

library(ggplot2)
library(plotly)
library(tidyr)
library(dplyr)
data("EuStockMarkets")
stocks <-as.data.frame(EuStockMarkets)%>%
  gather(index,price)%>%
  mutate(time=rep(time(EuStockMarkets),4))
plot_ly(stocks,x=~time,y=~price,color = ~index)