使用GTSUMMARY实现多变量嵌套计数表格的问题求助

我尝试用gtsummary工具制作多变量嵌套计数表格，先后使用tbl_strata_nested_stack和tbl_strata2函数，但二者输出结果基本一致，均缺失Grade分组的样本计数信息。我查阅过相关问题但现有解答无法解决我的问题。

示例代码 #

df <- trial |>
  mutate(response = paste("Resp:", response),
         grade = paste("Grade:", grade))

df |>
  tbl_strata_nested_stack(
    strata = grade,
    ~ .x |>
      tbl_summary(
        by = trt,
        include = response,
        missing = "no"
      ) |>
      remove_row_type(type = "header")
  )

df |>
  tbl_strata2(
    strata = grade,
    ~ .x |>
      tbl_summary(
        by = trt,
        include = response,
        missing = "no"
      ) |>
      remove_row_type(type = "header"),
    .combine_with = "tbl_stack"
  )

当前问题 #

• 输出结果未显示每个Grade分组的样本计数
• 无法添加目标效果中的表头行

期望效果 #

实现带有层级结构的表格：每个Grade分组行显示对应样本计数，下方嵌套该分组内response变量按trt分组的计数，同时包含清晰的表头。

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