如何将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/

Answer 2

我一直在寻找解决方案(特别是如何将GT表导入Excel)，我刚刚发现Excel可以打开HTML表。所以，如果你没有很多表格，你可以把它们全部导出为HTML，在Excel中打开，然后保存为。xlsx文件。