如何为gtsummary表格的指定行标签添加脚注?
为gtsummary表格行标签添加脚注的解决方法
方法一:转换为gt表格后定位目标行
你之前的代码问题在于cells_stub()的rows参数需要基于gt表格中stub列的实际变量名匹配。转换后的gt表格里,stub对应的列名为label,所以要用逻辑条件定位"Drug B"行:
library(gtsummary) library(gt) trial["trt"] |> tbl_summary() |> as_gt() |> tab_footnote( footnote = "i.e. placebo", locations = cells_stub(rows = label == "Drug B") )
方法二:直接在gtsummary阶段添加脚注(更简便)
无需转换为gt表格,直接用gtsummary自带的modify_table_styling()函数,指定目标行标签并添加脚注:
library(gtsummary) trial["trt"] |> tbl_summary() |> modify_table_styling( rows = label == "Drug B", footnote = "i.e. placebo" )
这两种方法都能成功为"Drug B"的行标签添加指定脚注。
内容的提问来源于stack exchange,提问作者Andrea M
相关产品推荐
相关产品推荐

