通过Sexpr包含tikz命令

Question

我想使用tikz在由Sweave创建的自动报告中实现基本图形。因此，我创建了一个R函数，根据数据返回tikz命令。我的代码看起来像这样：

<<echo=FALSE>>=
y <- 20
code <- cat(paste("\\draw (0pt, ",y,"pt) circle (5pt)", sep=""))
@
\begin{tikzpicture}
\Sexpr{code}
\end{tikzpicture}

不起作用..。我得到的是字符串而不是图画。

Answer 1

不要使用\Sexpr，只需将块放在tikzpicture环境中，并添加块选项results=tex。例如,

\begin{tikzpicture}
<<echo=FALSE, results=tex>>=
y <- 20
cat(paste0("\\draw (0pt, ",y,"pt) circle (5pt)", sep=""))
@
\end{tikzpicture}

这没有经过测试，因此您可能需要对其进行一些调整。