Dygraphs Linked Time Series

In flexdashboard: R Markdown Format for Flexible Dashboards

library(dygraphs)
library(quantmod)
library(flexdashboard)

getSymbols(c("MSFT", "HPQ", "INTC"), from = "2014-01-01", auto.assign=TRUE)

Microsoft

dygraph(MSFT[,2:4], group = "stocks") %>% 
  dySeries(c("MSFT.Low", "MSFT.Close", "MSFT.High"), label = "MSFT")

HP

dygraph(HPQ[,2:4], group = "stocks") %>% 
  dySeries(c("HPQ.Low", "HPQ.Close", "HPQ.High"), label = "HPQ")

Intel

dygraph(INTC[,2:4], group = "stocks") %>% 
  dySeries(c("INTC.Low", "INTC.Close", "INTC.High"), label = "INTC")

flexdashboard documentation built on Aug. 12, 2023, 1:06 a.m.