如何将gtsummary脚注标记改为下标而非上标？

• 直接用modify_table_styling()函数就能搞定，不用手动修改渲染后的内容，代码示例如下：

library(gtsummary)
library(dplyr)

# 拿mtcars做示例生成带p值的表格，替换成你自己的数据框即可
mtcars %>%
  select(mpg, cyl, disp) %>%
  mutate(cyl = factor(cyl)) %>%
  tbl_summary(by = cyl) %>%
  add_p() %>%
  # 将脚注的上标索引替换为下标
  modify_table_styling(
    locations = cells_footnotes(),
    text_format = function(x) {
      gsub("<sup>(\\d+)</sup>", "<sub>\\1</sub>", x)
    }
  )

• 代码逻辑说明：
  1. modify_table_styling() 指定目标修改区域为脚注模块
  2. 用正则表达式把gtsummary默认生成的上标HTML标签<sup>数字</sup>替换成下标标签<sub>数字</sub>，不管输出HTML还是Word格式，这个替换都能生效

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