[R] Dygraph pkg

install.packages("dygraphs")
library(dygraphs)
data(package="ggplot2")

econ=data.frame(ggplot2::economics)
head(econ)

library(xts)
eco=xts(econ$unemploy,order.by=econ$date)
head(eco)

dygraph(eco)

dygraph(eco) %>%
  dyRangeSelector()

영역 선택하여 상세히 볼 수 있음

eco_a=xts(econ$psavert,order.by = econ$date)
eco_b=xts(econ$unemploy/1000,order.by = econ$date)
eco2=cbind(eco_a,eco_b)
head(eco2)

colnames(eco2)=c("psave","unemploy")
head(eco2)

dygraph(eco2)

dygraph(eco2) %>%
  dyRangeSelector()