删除 gtsummary 中的特定脚注

Deleting specific footnote in gtsummary

如何删除 gtsummary 中的特定脚注 table。例如,我会删除脚注 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()

您需要使用 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 创建