包括通過Sexpr的tikz命令

Question

我想在由Sweave創建的自動化報告中使用tikz實現基本圖形。因此，我創建了一個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} 

這沒有測試，所以你可能需要稍微調整一下。