有没有一种方法可以在 gtsummary table 中添加一个脚注，该脚注在与另一个 table 合并后仍然存在？

Question

我合并了两个 table 'tbl'。我想为最终合并的 table 添加一个脚注，但它对我不起作用。我试过将它添加到个人 table 中，如下所示：

library(gtsummary)
packageVersion("gtsummary")

tbl <- 
  glm(response ~ grade, trial, family = binomial) %>% 
  tbl_regression(exponentiate = TRUE) %>%
  add_glance_table(include = nobs) %>%
  add_n(location = c("label", "level")) %>%
  modify_footnote(all_stat_cols() ~ "models")

它适用于个人 table，但只要我合并它们，脚注就会消失。

我试过像这样将它添加到合并的 table，但没有成功：

tbl_final <- 
  tbl_merge(list(tbl, tbl), tab_spanner = c("**Men**", "**Women**")) %>%
modify_footnote(all_stat_cols() ~ "Models")

我该怎么办？谢谢！

Answer 1

您正在使用 all_stat_cols()，它旨在用于 tbl_summary() 个对象，而不是 tbl_regression() 个表。使用 show_header_names() 函数打印列名，以便能够将脚注放在您需要的列上，例如modify_footnote(estimate ~ "Odds Ratio")

有没有一种方法可以在 gtsummary table 中添加一个脚注，该脚注在与另一个 table 合并后仍然存在？

Is there a way of adding a footnote to a gtsummary table that will persist after merging with another table?

footnotes

gtsummary