添加多个 `add_n`

Question

是否可以添加多个add_n ？ 以下代码返回以下警告，并且未添加任何add_n 。 两者都靠自己工作。

. Column "n" not found and was ignored.

iris %>%
gtsummary::tbl_summary(type = list(where(is.logical) ~ "categorical"),
                       missing_text = 'Missing',
                       missing = 'ifany') %>%
gtsummary::add_n(statistic = "{N_nonmiss}", col_label = "**N responses**") %>%
gtsummary::add_n(statistic = "{N_miss}", col_label = "**Missing**")

Answer 1

您可以用响应 N 和统计信息制作两个表，然后制作一个缺少 N 的表，然后使用tbl_merge()将它们组合起来。

library(gtsummary)
library(dplyr)
t1 <- iris %>%
  gtsummary::tbl_summary(type = list(where(is.logical) ~ "categorical"),
                         missing_text = 'Missing',
                         missing = 'ifany') %>%
  gtsummary::add_n(statistic = "{N_nonmiss}", 
                   col_label = "**N responses**")

t2 <- iris %>%
  gtsummary::tbl_summary(type = list(where(is.logical) ~ "categorical"),
                         missing_text = 'Missing',
                         missing = 'ifany') %>%
  gtsummary::add_n(statistic = "{N_miss}", col_label = "**Missing**") %>% 
  gtsummary::modify_column_hide(stat_0)

gtsummary::tbl_merge(list(t1,t2), tab_spanner = FALSE)