如何将 gt 表保存到 Excel 或 Word 文件

Question

将我漂亮的表格提交给出版商后，他们希望将其保存为 Word 或 Excel 文件。有没有一种简单的方法可以将 gt 表保存为任一格式，或者我最好在 Excel 中重做它们？

Answer 1

以下是将 gtsummary 表导出到 Excel 或 RTF 的一些选项：

library(gtsummary)
library(writexl)

gt_table <- trial %>% 
  tbl_summary() 

# Export to Excel ----

# convert to tibble, then write to xlsx
gt_table %>%
  gtsummary::as_tibble() %>% 
  writexl::write_xlsx(., "example_gtsummary1.xlsx")

# Or use `as_hux_xlsx()`
gt_table %>% 
  as_hux_xlsx("example_gtsummary2.xlsx")
                         
# Export to RTF ----
gt_table %>%
  gtsummary::as_gt() %>% 
  gt::gtsave(., "example_gtsummary3.rtf")

有关本文第一个选项的更多详细信息： https: //www.pipinghotdata.com/posts/2021-07-14-polished-summary-tables-in-r-with-gtsummary/