原文链接:http://tecdat.cn/?p=9832
dygraph(lungDeaths) %>% dySeries("mdeaths", label = "Male") %>% dySeries("fdeaths", label = "Female") %>% dyOptions(stackedGraph = TRUE) %>% dyRangeSelector(height = 20)
datatable(m, , extensions = "Scroller", options = list(dom = "frtiS", scrollY = 200, scrollCollapse = TRUE))