三向合并表gtsummary

Question

library(gtsummary)
one <- mtcars %>% filter(am==0) %>% select(cyl,disp,hp,wt,vs) %>% 
  tbl_summary(by=cyl) %>% add_p
two <- mtcars %>% filter(am==1)%>% select(cyl,disp,hp,wt,vs) %>% 
  tbl_summary(by=cyl) %>% add_p
three <- mtcars %>% select(disp,hp,wt,vs,am) %>% 
  tbl_summary(by=am) %>% add_p
tbl_merge(list(one,two,three))

有没有一种简单的方法可以删除表3下的所有列，只保留p值列，以测试表1和表2之间的差异？或者，是否有其他方法可以在gtsummary中创建3向联想表？

Answer 1

您将需要使用tbl_strata()函数。http://www.danieldsjoberg.com/gtsummary/reference/tbl_strata.html

library(gtsummary)

trial %>%
  select(age, grade, stage, trt) %>%
  mutate(grade = paste("Grade", grade)) %>%
  tbl_strata(
    strata = grade,
    .tbl_fun =
      ~ .x %>%
      tbl_cross(stage, trt, margin = NULL) 
  )

​

​