Employment Data Analysis

library(tidyverse)
library(dygraphs)
t<-read_rds("data.RDS")
dygraph(t) %>%
  dyOptions(stackedGraph = F) %>%
  dyRangeSelector(height = 20)