如何在网格中排列 html 小部件图以导出为 pdf？

Question

我想结合丰富的 html 小部件（主要是plotly和networkD3），以及将它们排列为R网格中的绘图的可能性，将它们导出为出版物的pdf图形。但是，如果我在 R 中创建一些 html 小部件对象并尝试使用gridExtra::grid.arrange()排列它们（请参见下面的最小示例），我会收到以下错误：

\n\n

Error in gList(list(x = list(links = list(source = c(0, 0), target = c(1,  : \nonly \'grobs\' allowed in "gList"\n

\n\n

我搜索了 \xe2\x80\x9cconverting html widgets to grobs 或plots\xe2\x80\x9d 以便能够将它们排列在网格中，但找不到任何相关信息。我可以采用漫长的手动方式，首先使用htmlwidgets::saveWidget()将 html 小部件保存为网站，然后使用webshot::webshot()将其转换为 pdf，并使用矢量图形编辑器手动排列图形（例如墨景）。但尽管需要手动操作，所有转换步骤都可能会导致质量下降。

\n\n

也许我可以以某种方式用表格或列排列 LaTeX R-Markdown 文档中的图形，并指定纸张尺寸以适合我的绘图。但不知怎的，这感觉不像是一个理想的解决方案，因为我可能想将我的图表动态地排列在多个列和行中，添加标题等，这将使 LaTeX/knitr 中的排列变得相当复杂。

\n\n

因此，在我开始手动将所有内容编织在一起之前，我想问您是否知道更好的方法来排列一些 html 小部件图并将它们导出到 R 中的 pdf 中？

\n\n

---

\n\n

最小的例子

\n\n

这是一个重现我的问题的小例子。让\xe2\x80\x99s 说我的目标是一个图表，通过将两个不同过程的能量流相互比较（带有networkD3的桑基图），将它们排列在网格中，如下所示：\n示例性排列桑基图

\n\n

这将是我的代码：

\n\n

library(networkD3)\nlibrary(grid)\nlibrary(gridExtra)\n\n## Create simplified Data\ndfSankey <- list()\ndfSankey$nodes <- data.frame(Name = c("Final Energy","Conversion Losses","Useful Energy"))\n#1st process\ndfSankey$links1 <- data.frame(Source = c(0,0),Target=c(1,2),Value=c(30,70))\n#2nd process\ndfSankey$links2 <- data.frame(Source = c(0,0),Target=c(1,2),Value=c(10,60))\n\n## Draw Sankeys\nplSankey1 <- sankeyNetwork(Links = dfSankey$links1, Nodes = dfSankey$nodes, Source = \'Source\',\n                          Target = \'Target\', Value = \'Value\', NodeID = \'Name\')\nplSankey2 <- sankeyNetwork(Links = dfSankey$links2, Nodes = dfSankey$nodes, Source = \'Source\',\n                           Target = \'Target\', Value = \'Value\', NodeID = \'Name\')\n\n#Arrange them next to each other\ngrid.arrange(plSankey1,plSankey2)\n

\n\n

这会导致出现开头提到的错误消息。

\n\n

---

\n\n

Windows 7、R-Studio 0.99.903、R 版本 3.2.3、网格 3.2.3、gridExtra 2.2.1、networkD3 0.2.13

\n

Answer 1

在 Amit Kohli 的启发下，我开始尝试使用 flexdashboard、各种 Rmarkdown 格式（html、pdf、isolides...）、Rpresentations - 但与我的目标相比，它们都有一些缺点。

在我看来，最好的视觉效果可以通过闪亮的应用程序来实现。然后使用chrome将生成的网站保存为 pdf ，最后使用briss裁剪 pdf 。

library(networkD3)

## Create simplified Data
dfSankey <- list()
dfSankey$nodes <- data.frame(Name = c("Final Energy","Conversion Losses","Useful Energy"))
#1st process
dfSankey$links1 <- data.frame(Source = c(0,0),Target=c(1,2),Value=c(30,70))
#2nd process
dfSankey$links2 <- data.frame(Source = c(0,0),Target=c(1,2),Value=c(10,60))

# Define UI for application that draws two Sankeys in columns
ui <- shinyUI(fluidPage(column(6,
                               h2("Process 1", align = "center"),
                               uiOutput("plot1.ui")
                               ),
                        column(6,
                               h2("Process 2", align = "center"),
                               uiOutput("plot2.ui")
                               )
))

# Define server logic required to draw the sankeys
server <- shinyServer(function(input, output) {

    #Render plot area relative to flow height
    output$plot1.ui <- renderUI({
      sankeyNetworkOutput("Plot1", height = "400px")
    })
    output$plot2.ui <- renderUI({
      sankeyNetworkOutput("Plot2", height=paste0(400*(70/100),"px"))
    })

    #Render Sankeys
   output$Plot1 <- renderSankeyNetwork({
     sankeyNetwork(Links = dfSankey$links1, Nodes = dfSankey$nodes, Source = 'Source',
                   Target = 'Target', Value = 'Value', NodeID = 'Name', fontSize = 15, nodeWidth = 10)
   })

   output$Plot2 <- renderSankeyNetwork({
     sankeyNetwork(Links = dfSankey$links2, Nodes = dfSankey$nodes, Source = 'Source',
                   Target = 'Target', Value = 'Value', NodeID = 'Name', fontSize = 15, nodeWidth = 10)
   })
})

# Run the application 
shinyApp(ui = ui, server = server)

编写一个闪亮的应用程序并进行所有这些手动转换只是为了在 pdf 中排列两个 html 小部件图形，仍然感觉有点矫枉过正，但至少生成的 pdf 图片看起来非常令人愉悦。

我希望这对其他人也有帮助。