将 html 输出导出为 Latex、.png 或 .doc

Question

我正在使用 sjPlot 包进行一些交叉制表，它在 HTML 中生成了很棒的表格。

library(sjPlot)
iris<-iris
tab_xtab(iris$Species,iris$Sepal.Width,show.row.prc = TRUE,show.col.prc = TRUE)

虽然输出在控制台中看起来不错，但我想将其导出并放入报告中。理想情况下，我想将它们导出到乳胶文件中，但也可以作为 .png 作为 .doc 文件。

有人知道我该怎么做吗？

非常感谢您的帮助

最佳

Answer 1

一种选择是使用 webshot::webshot():

library(sjPlot)
library(webshot)

# location to write html version to
my_html <- tempfile(fileext = ".html")

# write html to temp file
tab_xtab(iris$Species,
         iris$Sepal.Width,
         show.row.prc = TRUE,
         show.col.prc = TRUE, 
         file = my_html)

# location to write png version to
my_png <- tempfile(fileext = ".png")

# take a webshot of html and save to png
webshot::webshot(my_html, my_png, vheight = 300)

请注意，您可能必须在安装 webshot 软件包后安装 PhantomJS。这可以通过 webshot::install_phantomjs().

来完成

您可能还需要使用 vwidth 和 vheight 参数来避免在您的 png 中出现额外的白色-space。