设置总体列以报告 gtsummary 中的列百分比

Question

我希望总体具有列百分比，而其他列报告行百分比。怎么办呢。提前致谢。

library(gtsummary)
library(dplyr)


trial %>%
  select(age, grade, response, trt) %>%
  tbl_summary(by=trt, percent = "row",
              type = response ~ "categorical",
              missing = "no") %>%
  add_overall()

Answer 1

add_overall() 的结果将始终与tbl_summary() 中的调用一致。要获得您所追求的，请构建两个表并将它们合并。下面的例子！

library(gtsummary)

tbl_row_percent <- 
  trial %>%
  select(age, grade, response, trt) %>%
  tbl_summary(by=trt, percent = "row",
              type = response ~ "categorical",
              missing = "no") 

tbl_col_percent <- 
  trial %>%
  select(age, grade, response) %>%
  tbl_summary(type = response ~ "categorical",
              missing = "no") %>%
  modify_header(all_stat_cols() ~ "**Overall**, N = {N}")

tbl_final <-
  tbl_merge(list(tbl_col_percent, tbl_row_percent)) %>%
  modify_spanning_header(everything() ~ NA)

^{由reprex package (v2.0.1) 于 2021 年 8 月 24 日创建}