关于在R Markdown（含bookdown::word_document2）中实现显示项首次引用特殊格式设置的技术咨询

当然可以实现！我来给你分享两种实用的方案，完全适配bookdown::word_document2的需求：

方案一：自定义R函数追踪引用次数（新手友好） #

bookdown本身支持自动交叉引用，我们可以通过一个简单的R函数来追踪每个图/表的引用次数，实现首次引用加粗、后续正常显示的效果：

1. 首先在文档开头定义一个全局环境用来记录引用次数：

ref_counts <- new.env(hash = TRUE)

2. 接着编写自定义的引用函数（以图为例，表的逻辑完全一致）：

ref_fig <- function(label) {
  # 拼接bookdown的引用键名
  key <- paste0("fig:", label)
  # 检查是否是首次引用
  if (!exists(key, envir = ref_counts)) {
    # 首次引用：加粗文本，并标记已引用
    assign(key, 1, envir = ref_counts)
    return(paste0("**Figure ", bookdown::label2ref(key), "**"))
  } else {
    # 非首次引用：正常显示，更新计数
    assign(key, get(key, envir = ref_counts) + 1, envir = ref_counts)
    return(paste0("Figure ", bookdown::label2ref(key)))
  }
}

3. 在文档中使用这个函数引用图片：
   假设你有一个带标签的图片块：

```{r amazing-results, fig.cap="Our amazing results", echo=FALSE}
plot(1:10)

引用时直接调用函数：
```markdown
`r ref_fig("amazing-results")` showed our amazing results. `r ref_fig("another-fig")` is also important. However, it should be noted that unlike `r ref_fig("amazing-results")`, the method used in `r ref_fig("another-fig")` had changed...

生成Word文档后，首次出现的Figure 1、Figure 2会是加粗格式，后续引用则恢复正常。

方案二：Pandoc Lua过滤器（自动化适配大型文档） #

如果你的文档内容较多，不想手动调用函数，可以用Pandoc Lua过滤器自动处理所有交叉引用的格式：

1. 创建一个名为bold-first-ref.lua的文件，写入以下脚本（核心逻辑是追踪每个引用ID的出现次数，首次引用时将文本加粗）：

local refs_seen = {}

function Para(el)
  -- 遍历段落中的所有元素，寻找交叉引用
  for i, inline in ipairs(el.content) do
    if inline.t == "Cite" then
      for _, cite in ipairs(inline.citations) do
        local ref_id = cite.id
        if not refs_seen[ref_id] then
          refs_seen[ref_id] = true
          -- 将引用文本替换为加粗格式
          for j, child in ipairs(inline.content) do
            if child.t == "Str" then
              inline.content[j] = pandoc.Strong(child)
            end
          end
        end
      end
    end
  end
  return el
end

2. 在文档的YAML头部指定这个过滤器：

output:
  bookdown::word_document2:
    pandoc_args: ["--lua-filter", "bold-first-ref.lua"]

这个方案会自动识别所有交叉引用，无需手动修改引用语法，适合大型文档批量处理。

备注：内容来源于stack exchange，提问作者ErwinTATP