Как в 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 не может добавлять несколько охватывающих заголовков (так написано, чтобы обеспечить поддержку вывода в несколько форматов).

Я бы попробовал распечатать эту таблицу. У них есть функции для добавления нескольких строк заголовков и возможность объединять ячейки (как по вертикали, так и по горизонтали). https://davidgohel.github.io/flextable/