如何用r语言制作交互可视化报告

dygraph(lungDeaths) %>%
  dySeries("mdeaths", label = "Male") %>%
  dySeries("fdeaths", label = "Female") %>%
  dyOptions(stackedGraph = TRUE) %>%
  dyRangeSelector(height = 20)

​ 

DT::datatable(m, , extensions = "Scroller", options = list(dom = "frtiS", scrollY = 200, 
    scrollCollapse = TRUE))

​