小编sho*_*say的帖子

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

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

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 包(v0.3.0)于 2020 年 3 月 18 日创建}