如何在gtsummary的tbl_regression中添加换行符？

你之前尝试的几种方法无效，是因为gtsummary生成的gt表格需要明确启用markdown/HTML格式解析，以下是可行的解决方案：

核心方法：使用gt::md()包裹带换行的文本 #

gt表格支持解析markdown格式的内容，用md()函数包裹标签文本，就能让\n或<br>被识别为换行符。

library(gtsummary)
library(gt)

# 构建模型
m1 <- glm(response ~ age + stage, trial, family = binomial)

# 用\n实现两行换行
tbl_regression(m1, exponentiate = TRUE,
               label = list(
                 stage ~ md("No\nCR")
               ))

# 用<br>实现多行换行
tbl_regression(m1, exponentiate = TRUE,
               label = list(
                 stage ~ md("Still<br>No<br>CR")
               ))

为什么之前的方法失效？ #

• 直接写纯文本换行：gtsummary会将其视为普通空格，不会解析为换行。
• 直接使用<br>：未启用格式解析时，会被当作普通字符串显示。
• 使用html()函数：gtsummary的label参数不支持该类型对象，而md()能正确传递格式指令给gt表格。

导出表格注意事项 #

如果需要导出为Word/PDF等格式，使用gtsave()函数即可，它会正确解析这些换行格式。

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