如何在bookdown中用for循环生成图形并实现交叉引用？

问题背景 #

在bookdown中使用for循环批量生成ggplot图形时，尝试通过\@ref(fig:)语法实现交叉引用，渲染后引用显示为??，控制台提示The label(s) fig:lab-plot not found，需要生成形如(Figures 1-5)的有效交叉引用。

核心原因 #

bookdown默认将单个代码块对应一个交叉引用标签，循环内生成的多个图形共享同一个代码块标签时，无法被bookdown正确识别为独立的可引用对象，导致标签查找失败。

解决方案 #

为循环内生成的每个图形分配唯一的交叉引用标签，再通过范围引用的方式组合这些标签，实现连续图号的引用效果。

修改后的完整代码示例 #

---
title: "R Notebook"
output: bookdown::html_document2()
---

## Example

A summary of mtcars (**Figures \@ref(fig:lab-plot-1)–\@ref(fig:lab-plot-5)**)

```{r results='asis'}
require(ggplot2)
for(i in 1:5){
  # 为每个图形设置唯一的交叉引用标签
  knitr::opts_current$set(label = paste0("lab-plot-", i))
  
  df <- mtcars[sample(5),]
  g1 <- ggplot2::ggplot(df, aes(x = mpg, y = disp, fill = gear)) +
    ggplot2::geom_point() +
    ggplot2::labs(title = paste0("Figure ", i),
                  caption = paste0("Figure ", i, ": 随机抽取的mtcars数据散点图"))
  cat("\n")
  print(g1)
  cat("\n")
}

### 关键说明
1. **动态设置唯一标签**：通过`knitr::opts_current$set(label = paste0("lab-plot-", i))`在循环内为每个图形生成独立标签（`fig:lab-plot-1`至`fig:lab-plot-5`），确保bookdown能识别每个图形的引用标识。
2. **范围交叉引用**：在正文中使用`\@ref(fig:lab-plot-1)–\@ref(fig:lab-plot-5)`实现连续图号的范围引用，渲染后会自动替换为对应的图号（如`Figures 1–5`）。
3. **代码块参数**：保留`results='asis'`确保循环内的文本输出和图形能被正确解析。

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