添加多個 `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)