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

Plotly Multiline Graph

Interactive plot created in plotly

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, mode = "markers", type = "scatter")