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

【问题标题】：Getting an extra column for median in gtsummary table在 gtsummary 表中获取额外的中位数列
【发布时间】：2021-11-15 18:20:23
【问题描述】：

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

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

library(gtsummary)

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

【问题讨论】：

标签： gtsummary

【解决方案1】：

报告组内连续摘要的最简单方法是使用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 日创建}

【讨论】：