在R语言gtsummary包中将置信区间的逗号替换为短横线

可以通过自定义格式化函数配合modify_fmt_fun方法实现，具体操作如下：

1. 定义置信区间格式化函数
   编写一个函数，将默认生成的逗号分隔置信区间字符串替换为短横线分隔：

library(gtsummary)
library(stringr)

fmt_ci_dash <- function(x) {
  # 先格式化数字精度，再替换逗号为短横线
  str_replace(style_number(x, digits = 2), ", ", " - ")
}

2. 生成表格并应用自定义格式
   拟合逻辑回归模型后，在tbl_regression生成的表格上调用modify_fmt_fun，将自定义函数应用到置信区间列：

# 示例逻辑回归模型
model <- glm(response ~ age + grade, data = trial, family = binomial)

# 生成带短横线分隔置信区间的表格
tbl_regression(model, exponentiate = TRUE) %>%
  modify_fmt_fun(columns = ci, fmt_fun = fmt_ci_dash)

如果需要全局生效（所有gtsummary生成的表格都用短横线分隔置信区间），可以设置全局主题：

set_gtsummary_theme(
  list(
    fmt_fun$ci = function(x) str_replace(style_number(x, digits = 2), ", ", " - ")
  )
)

# 后续生成的表格会自动应用短横线分隔格式
tbl_regression(model, exponentiate = TRUE)

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