如何将 {gtsummary} 表输出为图像？答案

【问题标题】：How to output {gtsummary} tables as images?如何将 {gtsummary} 表输出为图像？
【发布时间】：2020-06-30 05:36:25
【问题描述】：

我正在尝试将 {gtsummary} 表（特别是 tbl_regression() 输出）输出为图像。我正在使用kableExtra::as_image()，但结果不是很漂亮。下面是一个代表，但我没有发布图片的声誉。

有没有办法以编程方式获取tbl_regression() 输出的图像？在{gtsummary} github site 上，自述文件中有非常漂亮的表格图像，但我不确定它们是手动创建的还是使用代码创建的，因为我没有看到任何提取它们的函数。

library(gtsummary)
library(kableExtra)

m_linear <-
    lm(mpg ~ cyl, data = mtcars)

gtsummary::tbl_regression(m_linear) %>%
    gtsummary::as_kable() %>%
    kableExtra::as_image(file = "t.png")

^{由reprex package (v0.3.0) 于 2020-03-18 创建}

【问题讨论】：

标签： r gtsummary

【解决方案1】：

网站上的图片是使用来自 RStudio（我们喜欢）的{gt} package 打印的，并且它们具有保存表格的功能 (gt::gtsave())，与 {gtsummary} 表格完美搭配。

您可以通过以下步骤使用 {gt} 保存 {gtsummary} 表：

library(gtsummary)

# make model and tbl_regression object
m_linear <- lm(mpg ~ cyl, data = mtcars)
t1 <- tbl_regression(m_linear)

# Use function from gt package to save table, after converting to 
# gt object using as_gt()
gt::gtsave(as_gt(t1), file = file.path(tempdir(), "temp.png"))

^{由reprex package (v0.3.0) 于 2020-03-19 创建}

希望这对你有用，祝你好运！

【讨论】：

这会返回PhantomJS not found 错误。