R 包 gtsummary 和表格输出为简单的 ASCII 文本

Question

我一直在使用 gtsummary 包，发现它非常有用，但有一个功能我找不到。如果 in 包含在包 vignette 中，请提前原谅我的疏忽，但我无法将表格输出转换为简单的 ASCII 文本格式。

我的大部分工作都使用 LaTeX，但有时需要一个简单的表格。

您对如何实现这一目标有什么想法或建议？

最好的祝愿。

汤姆·麦克法兰 tommac@nova.edu

Answer 1

任何 gtsummary 表都可以使用各种打印引擎（例如 gt、flextable、huxtable、tibble 等）打印。默认情况下，huxtable 包将打印到控制台。这对你有帮助吗？

library(gtsummary)

trial %>%
   select(age, grade) %>%
   tbl_summary() %>%
   as_hux_table()
#>                       Characteristic     N = 200    
#>                     ────────────────────────────────
#>                       Age              47 (38, 57)  
#>                       Unknown              11       
#>                       Grade                         
#>                       I                 68 (34%)    
#>                       II                68 (34%)    
#>                       III               64 (32%)    
#>                     ────────────────────────────────
#>                       Median (IQR); n (%)           
#> 
#> Column names: label, stat_0

另一种选择是将 gtsummary 表转换为 tibble，并使用 ascii 包打印为 ASCII。但是，当您转换为小标题时，您会丢失脚注和跨越标题。

library(gtsummary)
#> #Uighur

trial %>%
  select(age, grade) %>%
  tbl_summary() %>%
  as_tibble() %>%
  ascii::ascii()
#> |=========================================== 
#> 1.1+| h| **Characteristic** h| **N = 200** 
#> | 1 | Age                | 47 (38, 57) 
#> | 2 | Unknown            | 11          
#> | 3 | Grade              |             
#> | 4 | I                  | 68 (34%)    
#> | 5 | II                 | 68 (34%)    
#> | 6 | III                | 64 (32%)    
#> |===========================================

^{由reprex package 创建于 2021-12-07 (v2.0.1)}

编程愉快！我在自己的工作中不使用 ASCII。希望这些选项之一适合您的工作流程。