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

【问题标题】：In R how can I make a contingency table with five binary factors with gtsummary (or any other r package)在 R 中，如何使用 gtsummary （或任何其他 r 包）制作一个包含五个二元因子的列联表
【发布时间】：2020-09-03 16:58:39
【问题描述】：

我正在尝试复制一个表：

显示按五个二元变量分组的人数。我可以加载数据并获取计数以显示如下糟糕的标签：

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 或其他软件包制作此表的出版质量版本？

【问题讨论】：

kableExtra 可能适合您的需求

标签： r gtsummary

【解决方案1】：

gtsummary 不能添加多个跨越标头是正确的（这样写是为了确保我们支持多种格式的输出）。

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

【讨论】：

感谢您的快速回复。我会玩 flextable。