我无法在一个tbl_summary()中添加总计行。
因此，我为总计行创建了另一个表，并使用tbl_stack()合并两个表。

library(dplyr)
library(gtsummary)
set.seed(123)
member <- sample(c("Yes", "No"), 100, replace = TRUE)
author <- sample(c("Yes", "No"), 100, replace = TRUE)
review <- sample(0:10, 100, replace = TRUE)
publish <- sample(0:10, 100, replace = TRUE)
pay <- sample(0:10, 100, replace = TRUE)
data <- data.frame(member, author, review, publish, pay)

tbl <- data %>%
  mutate(across(c(review, publish, pay), ~cut(., breaks = c(-Inf, 4.5, 5.5, Inf),
                                              labels = c("No", "Maybe", "Yes"),
                                              include.lowest = TRUE), .names = "{.col}_group")) %>% 
  select(member, author, ends_with("group")) %>%
  tbl_summary(
    by = member,
    missing = "no", 
    statistic = list(all_categorical() ~ "{n} ({p}%)"),
    digits = list(all_categorical() ~ c(0, 1))
  ) %>%
  add_p(test = all_categorical() ~ "fisher.test")%>% 
  add_overall() %>% 

  bold_labels()

tbl_total <- data %>% 
  select(member, author, ends_with("group")) %>%
  mutate(all_true = "Total") %>% 
  tbl_summary(
    by = member,
    include = all_true
  ) %>%
  bold_levels() %>%
  add_overall() %>%
  modify_table_body(
    ~.x %>% filter(row_type %in% "level")
  ) %>%
  modify_column_indent(columns = label, undo = TRUE) 

tbl_stack(list(tbl_total, tbl)) %>%
  as_kable() # only for showing the table in stack overflow

创建于2023-05-14带有reprex v2.0.2