如何使用gtsummary为表格整行添加独立于P值的描述统计脚注

可以使用gtsummary包的modify_footnote()函数，直接为指定变量行添加独立于P值的自定义脚注，具体实现代码如下：

library(gtsummary)
mtcars %>% 
  tbl_summary(by=am,
              include = c(cyl, disp, drat, hp, mpg, qsec, vs, wt),
              statistic = list(mpg  ~"{mean} ({sd})",
                               wt  ~ "{sum} ({median})")
  ) %>% 
  add_overall() %>%
  add_p() %>%  
  bold_p() %>% 
  separate_p_footnotes() %>%
  # 为指定行添加自定义脚注
  modify_footnote(
    variable = mpg ~ "Mean (SD)",
    variable = wt ~ "Sum (Median)",
    # 可选：指定脚注顺序，让自定义脚注排在P值脚注前
    footnote_order = c("mpg", "wt", "p.value")
  )

代码说明 #

• modify_footnote() 通过variable = 变量名定位要添加脚注的行，直接设置脚注文本
• 脚注会自动生成编号，默认与P值脚注连续排列；通过footnote_order可自定义脚注的先后顺序
• 保留了原代码中所有表格格式设置（如添加总列、计算P值、加粗P值、拆分P值脚注等）

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