dygraph(a4) %>% 
  dyRangeSelector()
TT_Car
TT_Truck
500
1000
1500
Apr 2015
Jul 2015
Oct 2015
Jan 2016