如何用 tbl_summary 中的级别替换变量

Question

一位审稿人要求不要在表中列出两种性别，而是只包括一个。 因此，性别将被替换为女性，并且女性的性别比例将在每个治疗下。

library(gtsummary)
d<-tibble::tribble(
      ~Gender, ~Treatment,      
      "Male", "A",
      "Male", "B", 
      "Female", "A",
      "Male", "C",
      "Female", "B",
      "Female", "C")

d %>% tbl_summary(by = Treatment)

Answer 1

一种方法是删除table_body table_body第二行，这只会保留有关Female的信息。 这与您在评论中提供的表格相匹配。

library(gtsummary)
d<-tibble::tribble(
  ~Gender, ~Treatment,      
  "Male", "A",
  "Male", "B", 
  "Female", "A",
  "Male", "C",
  "Female", "B",
  "Female", "C")

t1 <- d %>% filter(Gender == "Female") %>% tbl_summary(by = Treatment)



t1$table_body <- t1$table_body[2,]

t1