使用R和plot.Ly，如何保存多个htmlwidgets到我的html

Question

我开始玩剧情了。我对使用htmlwidgets直接在html中发布我的图表的可能性感到惊讶。到目前为止，我还不能在同一个html中保存多个小部件。我在独立的html中保存了多个小部件，然后在html代码中手工组合，但我希望能够在r中做到这一点。

一个简单的例子:

#graph
graph<- ggplot(df, aes(x = Data, y=tax))+ geom_bar(stat='identity')
gg <- ggplotly(graph)
# save as HtmlWigdet
htmlwidgets::saveWidget(as.widget(gg), "Index.html")

如何解析多个ggplotly对象来保存widgets ?

(这是我在stackoverflow的第一个问题，希望我做对了!问候!)

Answer 1

这是我从htmltools包的零碎部分改编的函数，用于保存标记列表，然后返回iframe标记。您可以将多个htmlwidgets包裹在htmltools::tagList中，然后使用此功能保存整个堆。

save_tags <- function (tags, file, selfcontained = F, libdir = "./lib") 
{
  if (is.null(libdir)) {
    libdir <- paste(tools::file_path_sans_ext(basename(file)), 
                    "_files", sep = "")
  }
  htmltools::save_html(tags, file = file, libdir = libdir)
  if (selfcontained) {
    if (!htmlwidgets:::pandoc_available()) {
      stop("Saving a widget with selfcontained = TRUE requires pandoc. For details see:n", 
           "https://github.com/rstudio/rmarkdown/blob/master/PANDOC.md")
    }
    htmlwidgets:::pandoc_self_contained_html(file, file)
    unlink(libdir, recursive = TRUE)
  }
  return(htmltools::tags$iframe(src= file, height = "400px", width = "100%", style="border:0;"))
}

Answer 2

您所追求的用例是什么?你可以考虑将这些图表添加到Flexdashboard(在R Markdown中创建)。这是我最近的最爱，加上Plotly。