在 R 中，我如何使用 gtsummary （或任何其他 r 包）使用五个二进制因子进行应急 table

Question

我正在尝试复制 table:

显示按五个二进制变量分组的人数。我可以加载数据并使用像这样的糟糕标签显示计数：

Drugs2 <- read.table("http://users.stat.ufl.edu/~aa/cat/data/Substance2.dat",
                        header = TRUE, stringsAsFactors = TRUE)
library(dplyr)

`Table 7.5` <-  bind_cols(`Alcohol Use` = c("Yes", "", "No", ""),
  `Cigarette Use` = rep(c("Yes", "No"),2),
  matrix(Drugs2$count, ncol = 8,byrow = T,
         dimnames = list(NULL,
         c("Y_F_W", "N_F_W", "Y_M_W", "N_M_W", "Y_F_O", "N_F_O", "Y_M_O", "N_M_O")))) 

knitr::kable(`Table 7.5`)

我看到 gtsummary 包可以使用 modify_spanning_header() 函数添加一级列标签，但我不知道如何嵌套跨越 headers。有人知道我如何添加嵌套的 headers 和 gtsummary 吗？

任何人都可以建议如何使用 gtsummary 或其他一些软件包制作此 table 的出版质量版本吗？

Answer 1

你说得对，gtsummary 不能添加多个跨越 headers（这样写是为了确保我们支持多种格式的输出）。

我会尝试使用 flextable 来打印这个 table。它们具有添加多个 headers 行的功能，以及合并单元格的功能（垂直和水平）。 https://davidgohel.github.io/flextable/

在 R 中，我如何使用 gtsummary （或任何其他 r 包）使用五个二进制因子进行应急 table

In R how can I make a contingency table with five binary factors with gtsummary (or any other r package)

r

gtsummary