从一个块中引用其他图形

Question

在 knitr/LaTeX 文档的块中生成的绘图内，我想定位一个文本字符串，并参考文档中的特定图形 elsehwere，例如“参见图 10”，基于标签那个特定的数字，让我们说“fig:sim1”。所以我编写了以下 R 函数，它读取我正在编写的 LaTeX 文档的 .aux 文件并提取与特定标签匹配的图形的计数器

ref <- function(label) {
  lines <- scan("mismatch-final.aux","character",sep="\n")
  line <- grep(paste("\\{",label,"\\}",sep=""),lines,value=TRUE)
  strsplit(strsplit(line,"\\{\\{")[[1]][2],"\\}\\{")[[1]][1]
}

然后我可以从块中生成所需的文本字符串并将其放置在绘图中，例如

text(5,10,paste("See Fig.~",ref("fig:sim1")))

这应该可以，但也许有更清洁的方法？另外，有没有办法从块中获取 .aux 文件名，从而使上面的 ref 函数更通用？

Answer 1

另一种方法是使用 tikzDevice 包和 TikZ 绘图，因此您可以在绘图中编写原始 LaTeX 表达式，例如

\begin{figure}
....
\caption{Simulation of something. \label{fig:sim1}}
\end{figure}

<<test, dev='tikz', external=FALSE>>=
plot(rnorm(10), rnorm(10))
text(0, 0, 'See Fig \\ref{fig:sim1}')
@

根据情节的复杂性，每次编译此块可能需要几秒钟。绘图保存为 LaTeX 文件，任何 LaTeX 命令都可以在其中工作。