r - 如何在没有居中代码的情况下将数字编织到居中

Question

将编织到中心数字的一种方法是包括以下内容

\begin{figure}
\begin{center}
[sweave chunk]
\end{center}
\end{figure}

但是，如果您想显示代码以生成可视化效果，则代码会居中显示。有谁知道一种让代码显示左对齐同时仍确保图形居中的巧妙方法？如果您将图形的大小设置为 3x3，则会出现问题:

<<myplot, fig=TRUE, width=3, height=3>>=
    plot(rnorm(20), rnorm(20))        
@

对于我正在处理的项目，我需要这样做 100 多次，并且不希望为情节和代码创建单独的块。

Answer 1

也许不完全是你想要的，但我喜欢保留我用来在图形区域之外制作图片的代码，因为我想要文本中的代码:

Blablabla if we run:
R CODE
We get the figure in Figure 1

您可以使用 include=false 来做到这一点。在 Sweave 参数中，并使用以下事实:如果您在 Sweave 中制作图片，它会调用 pdf DOCUMENTNAME-PICTURENAME.pdf .例如，在文档 foo.Rnw 中:

Blablabla if we run:
<<myplot,fig=true,include=false>>=
plot(1)
@
We get the plot in Figure \ref{myplot}

\begin{figure}
\begin{center}
\includegraphics{foo-myplot}
\end{center}
\label{myplot}
\caption{This is my plot!}
\end{figure}

这应该使您的代码在运行文本和图中 LaTeX 放置它的任何位置(如果您想要就在那里)中保持对齐。

编辑:

运行您的示例确实让我在与普通文本相同的边距处留下对齐的代码:

\documentclass{article}
\usepackage{Sweave}
\begin{document}
\begin{figure}
\centering
<<myplot, fig=TRUE, width=3, height=3>>=
    plot(rnorm(20), rnorm(20))        
@
\end{figure}
\end{document}