如何用gtsummary为表格各行添加对应分组的样本量(n)

我想要展示不同肺动脉压分类的生存百分比，现有数据如下：

library(tibble)
library(gtsummary)

data <- tribble(
  ~cat, ~status,
  "0-20", "Alive",
  "0-20", "Deceased",
  "20-40", "Alive",
  "20-40", "Alive",
  "20-40", "Alive"
)

当前使用add_n()函数时，返回的是整个队列的总样本量N=5，但我希望为每个cat水平显示对应的样本量（“0-20”组显示2，“20-40”组显示3），当前代码如下：

data %>% tbl_summary(
  by=status,
  missing="no",
  percent="row") %>%
  modify_column_hide(stat_2) %>%
  add_n()

只需修改add_n()函数的参数，指定样本量的显示位置为变量水平行旁即可，修改后的代码如下：

data %>% 
  tbl_summary(
    by = status,
    missing = "no",
    percent = "row"
  ) %>%
  modify_column_hide(stat_2) %>%
  add_n(location = "level")

说明 #

• location = "level"参数会将每个cat分组的样本量（而非总队列样本量）添加到对应分组的行旁，直接满足“0-20”组显示n=2、“20-40”组显示n=3的需求
• 保留原代码的percent="row"设置，确保显示的是各分组内的生存百分比，结合样本量可以更清晰地展示数据分布

内容的提问来源于stack exchange，提问作者John Ryan