图*twocolumn knit/Sweave 文档中的环境

Question

听起来这应该是一个常见问题，但我没有找到明显的技巧。 考虑下面的 knit Rnw 文件，

\documentclass[twocolumn, 12pt]{article}
\usepackage{graphicx}
\begin{document}
%\SweaveOpts{dev=pdf, fig.align=center}
\begin{figure*}
<<aaa, fig.width=8, fig.height=5, fig.show=hold>>=
plot(1,1)
@
\end{figure*}
\end{document}

我希望这个宽图跨越两列，使用 {figure*} LaTeX 环境。有一个钩子吗？

编辑：将块包装​​在 figure* 中给出以下输出。

Answer 1

两个事实：

1. knitr 让您可以轻松访问所有内容，因此 LaTeX 技巧通常是不必要的；
2. 有一个 chunk 钩子，您可以用它包装块结果；

一个简单的解决方案是：

knit_hooks$set(chunk = function(x, options) {
                       sprintf('\\begin{figure*}\n%s\n\\end{figure*}', x)
})

我将剩下的工作留给您来处理 options 中的更多细节（例如，当 options$fig.keep == 'none' ，您不应将输出包装在 figure* 中）。您可能想了解默认的chunk钩子 for LaTeX 在 knitr 中定义，以便更好地了解 chunk 钩子的工作原理。

然而，在这种情况下，我倾向于自己在文档中编写LaTeX代码，而不是自动创建它。获得 figure* 后，您可能会开始考虑 \caption{} 和 \label{} (不难，但我仍然想在 LaTeX 中看到它们）。

Answer 2

不确定如何knitr，但对于Sweave（和基本乳胶）来说，实际上有一个技巧：让R代码生成一个pdf文件，然后使用标准的\includegraphics将其拉入。

所以用这个：

\documentclass[twocolumn, 12pt]{article}
\usepackage{graphicx}
\begin{document}
%\SweaveOpts{dev=pdf}

<<aaa,fig=FALSE,print=FALSE,echo=FALSE>>=
pdf("mychart.pdf", width=6, height=3)
set.seed(42)
plot(cumsum(rnorm(100)), type='l', main="yet another random walk")
invisible(dev.off())
@

\begin{figure*}
  \includegraphics{mychart.pdf}
\end{figure*}

\end{document}

我得到了下面的文档（然后我将其从 pdf 转换为 png）：

Answer 3

在准备 IEEE 两栏会议论文中应跨越两栏的图表时，我也遇到了类似的问题。

设置块钩子导致我的设置出现一些奇怪的错误。
即使是这个简单的钩子： knit_hooks$set(chunk = function(x, options) x)

但在研究 knitr::opts_chunk$get() 之后，我意识到这很简单设置 fig.env="figure*" 以优雅的方式解决了这个问题。

这是我的块在 Rnw 文件中的样子：

<<fig1, fig.width=18, fig.height=6, fig.env="figure*">>=
@