原文链接：http://tecdat.cn/?p=9832

1. 


2. dygraph(lungDeaths) %>%

3. dySeries("mdeaths", label = "Male") %>%

4. dySeries("fdeaths", label = "Female") %>%

5. dyOptions(stackedGraph = TRUE) %>%

6. dyRangeSelector(height = 20)

1. 


2. datatable(m, , extensions = "Scroller", options = list(dom = "frtiS", scrollY = 200,

3. scrollCollapse = TRUE))