Как вывести таблицы {gtsummary} в виде изображений? - PullRequest
Новая
       93

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

3 голосов
/ 19 марта 2020

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

Есть ли способ программно получить изображение с вывода tbl_regression()? На сайте {gtsummary} github в 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")

Создано в 2020-03-18 пакетом Представить (v0.3.0)

1 Ответ

4 голосов
/ 19 марта 2020

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

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

# Install gt package if needed
# install.packages("remotes")
# remotes::install_github("rstudio/gt", ref = gtsummary::gt_sha)

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-03 -19 по представить пакет (v0.3.0)

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

...