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

Question

我已经合并了两个表'tbl'。我想在最终合并的表中添加一个脚注，但对我来说不起作用。我试过将其添加到单独的表格中，如下所示：

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")

它适用于各个表，但一旦我将它们合并，脚注就会消失。

我试过这样把它添加到合并表中，但没有成功：

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")