knitr钩子处理ggplot与plot行为差异及循环多标题适配问询

阿华AIGC实验室

2026-5-27

解决knitr循环生成图形的逐图标题问题

没问题！我来帮你搞定这个knitr钩子修改的事儿，让你循环生成的每张图都能对应上方的专属标题~

核心思路

我们可以自定义knitr的plot钩子函数，通过钩子接收标题向量，再用一个计数器跟踪当前绘制的图形序号，每次绘图前输出对应位置的标题，完美复刻fig.cap的逐图对应效果，还能把标题放在图形上方。

具体实现步骤

第一步：设置自定义钩子

先在R代码块里定义钩子和计数器，建议放在文档的setup代码块里：

library(knitr)

# 初始化图形计数器，用来跟踪当前是第几个图
fig_counter <- 0

# 自定义plot钩子（适配PDF输出，HTML/Word可以调整）
knit_hooks$set(plot = function(x, options) {
  fig_counter <<- fig_counter + 1
  # 检查是否传入了capT标题向量，且当前序号在向量范围内
  if (!is.null(options$capT) && fig_counter <= length(options$capT)) {
    current_cap <- options$capT[fig_counter]
    # 生成LaTeX格式的标题（加粗+编号，放在图上方）
    title_text <- paste0("\\textbf{Figure ", fig_counter, ": ", current_cap, "}\\\\[0.5em]")
    # 把标题和原图的LaTeX代码拼接起来
    paste(title_text, knitr::hook_plot_tex(x, options), sep = "\n")
  } else {
    # 没有标题或超出范围时，使用默认的plot钩子
    knitr::hook_plot_tex(x, options)
  }
})

第二步：循环绘图并传入标题向量

在绘图的代码块里，通过capT参数传入你的标题向量，循环生成图形即可：

---
title: "循环生成带上方标题的图形"
output: pdf_document
documentclass: article
usepackage:
  - inputenc: utf8
  - fontenc: T1
---

```{r setup, include=FALSE}
# 把上面的钩子代码放在这里

# 循环生成3张图，对应3个标题
for (i in 1:3) {
  # 注意把图形自带的main标题设为空，避免重复
  if (i == 1) plot(rnorm(100), main = "")
  if (i == 2) hist(runif(100), main = "")
  if (i == 3) plot(seq(1,10), rexp(10), type = "l", main = "")
}

不同输出格式的适配调整

HTML输出：把钩子中的knitr::hook_plot_tex换成knitr::hook_plot_html，标题代码换成HTML标签：
```
title_text <- paste0("<h4><strong>Figure ", fig_counter, ": ", current_cap, "</strong></h4><br>")
```
Word输出：标题用Markdown加粗格式，钩子用默认的hook_plot_md：
```
title_text <- paste0("**Figure ", fig_counter, ": ", current_cap, "**\n\n")
```