如何在gtsummary的tbl_strata()与tbl_summary()中移除hwy变量标签？

可以通过以下两种方式实现需求：

方法一：修改标签并移除多余行 #

在tbl_summary()中把hwy的标签设为空，再过滤掉对应的标签行，这样每个分层下仅保留统计结果，同时保留manufacturer的分层标签：

library(gtsummary)
library(ggplot2)
library(dplyr)

data("mpg")

mpg %>% 
  select(hwy, cyl, manufacturer) %>% 
  tbl_strata(
    strata = manufacturer,
    ~ .x %>% 
      tbl_summary(
        by = cyl, 
        type = list("hwy" ~ "continuous"),
        label = list(hwy ~ "")  # 将hwy的标签设置为空
      ) %>%
      modify_table_body(~ .x %>% filter(row_type != "label"))  # 移除空标签行
    ,
    .combine_with = "tbl_stack"
  )

方法二：直接隐藏标签行 #

如果不需要修改标签，也可以直接通过modify_table_body移除hwy对应的标签行，效果一致：

library(gtsummary)
library(ggplot2)
library(dplyr)

data("mpg")

mpg %>% 
  select(hwy, cyl, manufacturer) %>% 
  tbl_strata(
    strata = manufacturer,
    ~ .x %>% 
      tbl_summary(
        by = cyl, 
        type = list("hwy" ~ "continuous")
      ) %>%
      modify_table_body(~ .x %>% filter(!(variable == "hwy" & row_type == "label")))
    ,
    .combine_with = "tbl_stack"
  )

两种方法都会移除每个分层中的hwy标签行，仅保留manufacturer作为分层标识，同时消除多余空行。

内容的提问来源于stack exchange，提问作者98198128