如何在R Markdown中实现段落自动编号？

以下方案根据你常用的输出格式选择即可：

HTML 输出 #

在Rmd文件YAML头部下方插入自定义CSS代码块，通过CSS计数器实现自动编号：

body {
  /* 初始化段落计数器 */
  counter-reset: para-counter;
}
p {
  /* 每出现一个p标签计数器加1 */
  counter-increment: para-counter;
}
p::before {
  /* 在段落前插入编号，可自行调整格式、字体样式 */
  content: counter(para-counter) ". ";
  font-weight: 500;
  margin-right: 4px;
}

如果需要排除列表、代码块、引用块里的段落，可修改选择器为body > p，仅匹配顶级正文段落。

PDF 输出 #

通过LaTeX计数器实现，在YAML头中添加LaTeX引入配置即可：

output: pdf_document
header-includes:
  - \newcounter{para-counter}
  # 每段开头自动插入编号
  - \everypar{\stepcounter{para-counter}\thepara-counter.\hspace{0.5em}}
  # 如需按章节重置编号，额外添加以下两行
  # - \usepackage{chngcntr}
  # - \counterwithin{para-counter}{section}

Word 输出 #

配合officedown包和自定义Word模板实现：

1. 新建空白Word文档，创建一个带连续编号规则的段落样式，保存为template.docx
2. 在Rmd的YAML头中配置输出参数，指定所有正文段落套用该样式：

output: 
  officedown::rdocx_document:
    reference_docx: "template.docx"
    styles:
      Body Text: "你创建的带编号的样式名称"

跨输出格式通用方案 #

如果需要同时适配多种输出格式，可以在Rmd开头的setup代码块中配置knitr钩子实现：

# 初始化计数器
para_counter <- 0
# 自定义段落钩子
knitr::knit_hooks$set(paragraph = function(before, options, envir) {
  if (before) {
    para_counter <<- para_counter + 1
    return(paste0(para_counter, ". "))
  }
})

该方案无需针对不同输出单独写配置，也支持自定义编号格式、手动控制特定段落跳过编号。

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