如何将 LaTeX 代码包含到 Stargazer 和 xtable 输出中？

Question

我想使用 stargazer 或 xtable 在 R 中生成一个 LaTeX 表。 表中的一列将包含 LaTeX 代码，用于引用我文档中其他地方的数字。 这些数字使用约定 \\label{Figure: i} （其中 i 是整数）进行标记。

我正在尝试以下方法：

df <- data.frame(
          Name = c("My First Graph", "My Second Graph"),
          Figure = paste0("\\ref{Fig: ",1:2))
          )
stargazer(df,summary=FALSE)

但是，输出会自动转义最终 LaTeX 输出中的反斜杠和花括号。 有谁知道我该如何解决这个问题？

谢谢

Answer 1

我不知道stargazer() ，但print.xtable()有一个sanitize.text.function选项，这将有助于完成此任务。 来自help("print.xtable") ：

sanitize.text.function

所有非数字条目（行和列名称除外）都经过清理，以尝试删除对输出格式具有特殊含义的字符。 如果 sanitize.text.function 不为 NULL，则它应该是一个接受字符向量并返回一个的函数，并将用于清理而不是默认的内部函数。 默认值为 NULL。

因此，我们可以执行以下操作：

df <- data.frame(
    Name = c("My First Graph", "My Second Graph"),
    Figure = paste0("\\ref{Fig: ", 1:2, "}")
)
tbl <- xtable(df)
print(tbl, include.rownames = FALSE, sanitize.text.function = function(x) x)

这给出了我相信你想要的输出：

% latex table generated in R 3.4.4 by xtable 1.8-2 package
% Mon Jul 15 10:30:31 2019
\begin{table}[ht]
\centering
\begin{tabular}{ll}
  \hline
Name & Figure \\ 
  \hline
My First Graph & \ref{Fig: 1} \\ 
  My Second Graph & \ref{Fig: 2} \\ 
   \hline
\end{tabular}
\end{table}

警告

这会覆盖print.xtable()的默认文本卫生，所以只有在不需要清理任何东西时才这样做。 如果您处于更复杂的情况，例如您想要清理某些东西而不是其他东西，则需要调整此解决方案（可能相当多）。