R Markdown同段落多脚注间距调整问题求助

核心思路 #

由于Docx基于Office Open XML格式，Markdown原生脚注语法无法直接实现无空格分隔效果，需通过自定义标记控制或后处理文档的方式解决。

可行方案 #

方案1：使用Pandoc Raw Inline语法（推荐） #

在Rmd中直接嵌入Word兼容的OOXML代码，手动控制脚注标记的格式：

---
output: word_document
---

`r if(params$region == "北京"){"文本内容<sup>¹,²</sup>"} else {"对应地区文本"}`

<!-- 脚注内容定义 -->
[^1]: 第一个脚注的具体内容
[^2]: 第二个脚注的具体内容

循环渲染时传递地区参数：

regions <- c("北京", "上海", "广州")
for (reg in regions) {
  rmarkdown::render(
    input = "Comm_Region.Rmd",
    output_file = paste0("Comm_", reg, ".docx"),
    params = list(region = reg)
  )
}

该方式直接控制脚注标记的代码结构，生成的Docx中脚注标记会呈现¹,²无空格格式，同时脚注内容正常显示在页脚。

方案2：Post-process Docx文件（批量处理适配） #

若不想修改Rmd内容，可在生成Docx后用officer包批量替换脚注标记中的空格：

library(officer)
library(magrittr)

regions <- c("北京", "上海", "广州")
for (reg in regions) {
  # 渲染文档
  output_path <- paste0("Comm_", reg, ".docx")
  rmarkdown::render(
    input = "Comm_Region.Rmd",
    output_file = output_path,
    params = list(region = reg)
  )
  
  # 读取并修改Docx中的脚注标记
  doc <- read_docx(output_path)
  doc <- doc %>% 
    body_replace_all_text(pattern = "¹, ²", replacement = "¹,²", fixed = TRUE) %>%
    print(target = output_path)
}

注意：需提前在Rmd中用^1^, ^2^的写法生成带空格的标记，再通过代码替换掉空格。

方案3：自定义Word模板（长期复用） #

创建自定义Word模板（.dotx），设置脚注引用样式的分隔符为无空格逗号：

1. 生成默认模板：rmarkdown::draft("template.dotx", template = "word_document", package = "rmarkdown")
2. 打开模板文件，找到「脚注引用」样式，修改脚注分隔符去掉空格
3. 在Rmd的YAML中指定模板：

---
output:
  word_document:
    reference_docx: template.dotx
---

该方式一劳永逸，适合长期需要相同脚注格式的场景。

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