gtsummary v2.0.3：替换回归表格下划线为Ref代码失效求助

在gtsummary 2.0+版本中，原有的modify_table_styling(..., missing_symbol = "Ref")方法已失效，因为版本重构后missing_symbol仅用于缺失值处理，不再控制参考行文本。可以通过以下两种方法实现需求：

方法一：直接修改表格体数据 #

通过modify_table_body定位参考行，替换estimate列的下划线为"Ref"：

library(gtsummary)
mod1 <- glm(response ~ trt + age + grade, trial, family = binomial)

t1 <- tbl_regression(mod1, exponentiate = TRUE) 

t1 |>
  modify_table_body(
    mutate,
    estimate = ifelse(reference_row == TRUE, "Ref", estimate)
  )

方法二：使用格式化函数指定参考行显示 #

借助modify_fmt_fun为参考行的estimate列设置固定显示文本：

t1 |>
  modify_fmt_fun(
    rows = reference_row == TRUE,
    columns = estimate,
    fmt_fun = function(x) "Ref"
  )

两种方法都能将回归表格中分类变量的参考行原下划线替换为"Ref"，适配gtsummary 2.0.3版本的API变化。

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