将长 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

更新：此代码已被功能化并放入一个包中。这是帮助文件http://www.danieldsjoberg.com/bstfun/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。