r - 在 R 中，如何使用 gtsummary （或任何其他 r 包）制作一个包含五个二元因子的列联表

Question

我正在尝试复制一个表：

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

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()但我看不到如何嵌套跨页标题。有人知道我如何添加嵌套标题gtsummary吗？

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

Answer 1

你是正确的， gtsummary 不能添加多个跨越标题（它是这样编写的，以确保我们支持多种格式的输出）。

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