将 gtsummary 表导出到 Word 的简化方法

Question

有谁有任何将 gsummary 表导出到 Word 的简化方法吗？

\n

我是一名 R 新手用户，非常喜欢 gtsummary 能够高效地生成可供发布的表。我现在遇到的唯一障碍是如何轻松地将 gtsummary 的表格导出到 Word 文档中，以便与主要使用 Word 的同事共享。我已经尝试了建议的方法，将 gtsummary 表导出为 flex_tables，然后进一步将这些 flex_tables 导出为 Word 文档，但是当我这样做时，似乎会丢失一些 gtsummary\xe2\x80\x99s 的良好格式（也许我可能会得到更好的结果）拥有更多经验，因为其他博主似乎表明他们通过在导出时添加自己的格式化脚本获得了相当好的结果）。我还尝试过简单地将 gtsummary\xe2\x80\x99s html 输出复制并粘贴到 Word 中，这很容易，但这也导致我丢失了一些 gtsummary\xe2\x80\x99s 好的格式。

\n

还有其他人有一些对他们来说效果很好的建议出口解决方案吗？

\n

Answer 1

在gt的最新版本（v0.9.0）中，完全支持Word输出。我将使用 gtsummary 表转换为 gt as_gt()，然后使用 保存gt::gtsave()。下面举例！

library(gtsummary)
packageVersion("gtsummary")
#> [1] '1.7.0'
packageVersion("gt")
#> [1] '0.9.0'


tf <- tempfile("example", fileext = ".docx")

trial |> 
  tbl_summary(
    by = trt, 
    missing = "no",
    include = c(age, response)
  ) |> 
  add_difference() |> 
  as_gt() |> 
  gt::gtsave(filename = tf)

^{创建于 2023-04-22，使用reprex v2.0.2}