在 gtsummary table 中获取额外的中位数列

Getting an extra column for median in gtsummary table

我看到了一篇我想复制的文章。他们将分类预测作为行,并将 N 用于第 1 列,将另一个变量的中值用于第 2 列。我希望能够创建一个函数来获取第 2 列的中值。 示例图片

我不确定如何获得每个特定级别的中位数。我试过分组依据,但这只会给我每个更高级别的中位数。

library(gtsummary)

trial2 <- trial %>% select(stage, grade, ttdeath) %>% 
  group_by(stage, grade) %>% 
  mutate(median_ttdeath = median(ttdeath))

报告组内连续摘要的最简单方法是使用 tbl_continuous() 功能。 https://www.danieldsjoberg.com/gtsummary/reference/tbl_continuous.html

在您的情况下,您需要制作 2 个汇总表,然后将这些表合并在一起。示例如下!

library(gtsummary)
packageVersion("gtsummary")
#> [1] '1.5.0'

tbl1 <- 
  trial %>%
  select(trt, grade) %>%
  tbl_summary()

tbl2 <- 
  trial %>%
  tbl_continuous(
    variable = age,
    include = c(trt, grade)
  ) %>%
  modify_header(all_stat_cols() ~ "**Age**")

tbl_final <-
  tbl_merge(list(tbl1, tbl2)) %>%
  modify_spanning_header(everything() ~ NA)

reprex package (v2.0.1)

创建于 2021-11-15