使用knitr处理Rnw文件时代码块标题字体变fgcolor的解决问询

我明白你碰到的这个棘手问题——在使用tufte-book文档类时，knitr代码块生成的图形标题会莫名继承代码块的fgcolor（通常是灰色），但手动编写的marginfigure标题却是正常的黑色，之前类似问题的解决方案也不适用。确实可以通过自定义knit_hooks来搞定这个问题，下面是经过验证的可行方案：

核心思路 #

我们可以创建一个名为colorcaption的自定义钩子，它会先调用knitr原生的plot钩子生成图形的LaTeX代码，然后通过字符串替换，在代码块的kframe环境结束后插入颜色设置命令，让后续的图形标题使用我们指定的颜色。同时配合fig.show='hide'，让knitr不自动输出图形，转而由自定义钩子来处理。

完整可运行示例 #

以下是修改后的Minimal.Rnw文件：

\documentclass{tufte-book}
\begin{document}
<<echo=FALSE>>=
library(knitr)
knit_hooks$set(colorcaption = function(before, options, envir){
  # 改编自hook_plot_custom，仅在代码块执行后运行
  if (before) return() 
  ext = "pdf" 
  hook = knit_hooks$get('plot')
  # 确保fig.num至少为1，避免无图形时出错
  if (options$fig.num == 0L) options$fig.num = 1L 
  res = unlist(lapply(seq_len(options$fig.num), function(i) {
    options$fig.cur = i
    hook(fig_path(ext, options, i), knitr:::reduce_plot_opts(options))
  }), use.names = FALSE)
  res <- paste(res, collapse = '')
  # 关键修改：在kframe结束后插入颜色设置
  sub("\\end{kframe}", paste0("\\end{kframe}\\color{", options$colorcaption, "}"), res, fixed=TRUE)
})
@
普通字体颜色为黑色。
<<colorcaption='red',fig.show='hide',fig.env='marginfigure',fig.cap="标题字体颜色为colorcaption">>= 
1:10
plot(1:10)
10:1
@
Hello
\begin{marginfigure}
\caption{此颜色为黑色。}
\end{marginfigure}
\end{document}

关键参数说明 #

• colorcaption='red'：指定图形标题的颜色，可以替换为任意LaTeX支持的颜色（比如black、green等）
• fig.show='hide'：阻止knitr自动输出图形，让自定义钩子接管图形的渲染和输出
• fig.env='marginfigure'：指定使用tufte-book的边栏图形环境

效果验证 #

编译这个Rnw文件后，你会看到：

• 代码块生成的边栏图形标题变成了指定的红色
• 手动编写的marginfigure标题保持黑色
• 普通文本依然是默认的黑色

内容的提问来源于stack exchange，提问作者Emilio Torres Manzanera