Как вывести таблицы {gtsummary} как изображения?

Question

Я пытаюсь вывести таблицы {gtsummary} (в частности, tbl_regression()вывод) как изображения. Я используюkableExtra::as_image()но результат не очень красивый. Представление ниже, но у меня нет репутации, чтобы размещать изображение.

Есть ли способ программно получить изображение tbl_regression()выход? На сайте github {gtsummary} в README есть очень красивые изображения таблиц, но я не уверен, были ли они созданы вручную или с помощью кода, поскольку я не вижу никаких функций, которые их извлекали.

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")

^{Создано 18.03.2020 пакетом REPEX (v0.3.0)}

Answer 1

Изображения на веб-сайте были напечатаны с использованием пакета {gt} от RStudio (который нам очень нравится), и в них есть функция для сохранения таблиц ( gt::gtsave()), который прекрасно работает с таблицами {gtsummary}.

Чтобы сохранить таблицу {gtsummary} с помощью {gt}, можно выполнить следующие действия:

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"))

^{Создано 2020-03-19 пакетом REPEX (v0.3.0)}

Надеюсь, это сработает для вас, удачи!