r - 合并后维护概览脚注

Question

我希望获得与gtsummary::add_glance_source_note() 创建 gtsummary::tbl_merge().

该函数本身接受 tbl_regression 一个参数，因此在合并管道中没有使用它，如果我将注释添加到单个表中，它们会在表合并时丢失。

library(tidyverse)
library(gtsummary)
library(nycflights13)

lm_1 <- lm(arr_delay ~ air_time, flights)

tbl_1 <- tbl_regression(lm_1, exponentiate = F) %>% 
    add_glance_source_note(include = c('r.squared'))

lm_2 <- lm(distance ~ air_time, flights)

tbl_2 <- tbl_regression(lm_2, exponentiate = F) %>% 
    add_glance_source_note(include = c('r.squared'))

tbl_1
tbl_2

两个表都有脚注，指示其模型的 R 平方。但是，当我合并表格时，脚注中的适合信息会丢失：

table.pub <- tbl_merge(
    list(tbl_1, tbl_2),
        tab_spanner = c("Delay", "Distance")
    )

有什么方法可以保留“<code>glance”信息，或者在最终的合并表中重新附加它？

谢谢！

Answer 1

更新：从 gtsummary v.1.4.0 开始，使用add_glance_table().

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

tbl_1 <- 
  lm(arr_delay ~ air_time, flights) %>%
  tbl_regression(exponentiate = F) %>% 
  add_glance_table(include = c('r.squared'))

tbl_2 <- 
  lm(distance ~ air_time, flights) %>%
  tbl_regression(exponentiate = F) %>% 
  add_glance_table(include = c('r.squared'))

tbl <-
  tbl_merge(
    list(tbl_1, tbl_2),
    tab_spanner = c("**Delay**", "**Distance**")
  )

^{由reprex 包于 2021-04-15 创建 (v2.0.0 )}

以前的回应：

浏览统计信息作为源注释添加。棘手的是源注释适用于整个表格。当你有一个tbl_regression()表时，统计数据指的是什么是完全清楚的。但是一旦合并了一个或多个，就不清楚应该如何呈现源注释。因此，它们不会在合并后呈现。

但是，注释保存在 gtsummary 表中，您可以打印它们。在下面的示例中，我通过模型的结果标记每个 R2 值并将它们添加到合并表中。

快乐编程！

library(tidyverse)
library(gtsummary)
library(nycflights13)

lm_1 <- lm(arr_delay ~ air_time, flights)

tbl_1 <- tbl_regression(lm_1, exponentiate = F) %>% 
  add_glance_source_note(include = c('r.squared'))

lm_2 <- lm(distance ~ air_time, flights)

tbl_2 <- tbl_regression(lm_2, exponentiate = F) %>% 
  add_glance_source_note(include = c('r.squared'))

tbl_1
tbl_2

tbl_merge(
  list(tbl_1, tbl_2),
  tab_spanner = c("**Delay**", "**Distance**")
) %>%
  as_gt() %>%
  gt::tab_source_note(
    str_glue("Delay {tbl_1$list_output$source_note}; ",
             "Distance {tbl_1$list_output$source_note}")
  )