删除 gtsummary 中的特定脚注

Question

如何删除 gtsummary 表中的特定脚注。例如我想删除脚注2 Wilcoxon rank sum test; Pearson's Chi-squared test，但留下另一个。

library(gtsummary)
library(dplyr)

trial[c("age", "grade", "trt")] %>%
  tbl_summary(by = trt, missing = "no") %>%
  add_p()

Answer 1

您需要使用modify_footnote() 函数来删除脚注。下面的例子！

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

tbl <- 
  trial[c("age", "grade", "trt")] %>%
  tbl_summary(by = trt, missing = "no") %>%
  add_p() %>%
  # remove footnotes
  modify_footnote(c(all_stat_cols(), p.value) ~ NA)

^{由reprex package (v2.0.1) 于 2021-11-19 创建}