r - 将脚注添加到 gtsummary 表中的单行标签

Question

我正在尝试向 gtsummary 的行标签添加脚注表，但我不知道如何引用我想要的确切单元格。

预期输出

使用默认的 trial 数据集，我想在“药物 B”中添加一个脚注，写为“即安慰剂”:

<表类="s-表"><头>特征N = 200¹<正文>化疗__药物A98 (49%)__ 药物 B ²102 (51%)¹ n (%) ² 即安慰剂

我试过转换为 gt 表，然后使用 tab_footnote()和 cells_stub() ，但我不知道如何使用 row = 来引用我想要的特定行标签。

不幸的是 cells_stub() 的文档示例仅使用其默认的 locations = everything() 参数值。

library(gtsummary)
library(gt)

trial["trt"] |>
        tbl_summary() |>
        as_gt() |>
        tab_footnote(footnote = "i.e. placebo",
                     # Line below doesn't work
                     locations = cells_stub(rows = "Drug B"))

Answer 1

您可以使用 gtsummary::modify_table_styling() 函数将脚注放在表格的正文中。示例如下!

library(gtsummary)

tbl <-
  trial |>
  select(trt) |> 
  tbl_summary() |>
  modify_table_styling(
    columns = label,
    rows = label == "Drug B",
    footnote = "i.e. placebo"
  )

^{由 reprex package 创建于 2022-07-28 (v2.0.1)}