r - 将长 gtsummary() 表拆分为 n 个较小的表

Question

在使用 gtsummary() 包创建描述性表格时，我得到了一张很长的表格。是否可以将这样的表拆分为多个较短的表？

通过这个示例数据集，我想展示我的意思:

library(gtsummary)
# make dataset with a few variables to summarize
trial2 <- trial %>% select(age, grade, response, trt)

# summarize the data with our package
table1 <- tbl_summary(trial2)
table1

给出这个输出:

期望的输出:

我试过了:

library(gtsummary)
# make dataset with a few variables to summarize
trial2 <- trial %>% select(age)
trial3 <- trial %>% select(grade)
trial4 <- trial %>% select(response)
trial5 <- trial %>% select(trt)

# summarize the data with our package
table1 <- tbl_summary(trial2)
table2 <- tbl_summary(trial3)
table3 <- tbl_summary(trial4)
table4 <- tbl_summary(trial5)

table1
table2
table3
table4

Answer 1

更新:此代码已功能化并放入包中。这是帮助文件 https://www.danieldsjoberg.com/gtsummary/reference/tbl_split.html

有趣的是，我从来没有想过拆分一个 gtsummary 表。做起来很简单，我写了一个小函数来完成它，保存在这个 GitHub Gist 中 https://gist.github.com/ddsjoberg/1f400732f0bf9bc9ae6ad1dd8b1cf914

该函数将 gtsummary tbl 作为输入，以及您希望拆分发生的变量名称。然后它返回 gtsummary 表的列表，每个表都是输入 tbl 的一个子集。

tt <- 
  trial %>%
  tbl_summary(by = trt) %>%
  add_p()

split_gtsummary_tbl(tt, .split_after = c("marker", "grade"))

如果您认为这对许多用户有帮助，请在 https://github.com/ddsjoberg/gtsummary/issues/new?assignees=&labels=&template=feature_request.md&title= 提出功能请求。 .然后我们可以合并一个强大的函数来拆分 tbls。