在 xtable 中处理 Latex 反斜杠答案

【问题标题】：Handling Latex backslashes in xtable在 xtable 中处理 Latex 反斜杠
【发布时间】：2012-01-04 19:22:17
【问题描述】：

我有一个包含以下列的表格：

 mytable <- data.frame(beta_0 = c(1,2,3)

我想要做的是在乳胶标记中输出一个带有列标题的表格，例如 $\beta_0$

但是，我似乎不知道如何使用print.xtable 输出“$\beta_0$”：

colnames(mytable) <- "$\beta_0$"
library(xtable)
print(xtable(mytable), include.rownames = F)

返回一个列标题

\eta\_0\$

而不是

$\beta_0$

我认为答案是print.xtable 的“sanitize.colnames.function”参数，但我不清楚如何使用它，?print.xtable 没有提供示例。

具体来说，我想输出一个像这样的乳胶表：

\begin{table}[ht]
 \begin{center}
  \begin{tabular}{r}
    \hline
    $\beta_0$ \\ 
    \hline
    1.00 \\ 
    2.00 \\ 
    3.00 \\ 
    \hline
  \end{tabular}
 \end{center}
\end{table}

【问题讨论】：

另见：stackoverflow.com/questions/32865384/…

标签： r latex sweave

【解决方案1】：

这里有两个问题；首先，您需要一个双反斜杠，否则它会将其视为控制序列。其次，默认情况下，xtable 会清理文本，使其不会破坏 LaTeX。使用sanitize. 参数之一来控制它；要不进行消毒，请将其传递给身份函数。

colnames(mytable) <- "$\\beta_0$"
print(xtable(mytable), include.rownames = F, sanitize.colnames.function = identity)

【讨论】：

我试过双反斜杠，但让我困惑的是sanitize.colnames.function。是否有sanitize* 参数的可能值列表？
@David 没有sanitize 参数的可能值列表。正如文档中明确指出的那样：it should be a function taking a character vector and returning one, and will be used for the sanitization instead of the default internal function。 Aaron 只是简单地传递了identity，这是一个什么都不做的函数。
它需要任何合适的功能。 identity 是一个什么都不做的基本函数。
我不知道还有什么其他特殊功能；当我需要更复杂的东西时，我会从 xtable 中的默认设置开始，并对其进行修改以满足我的需要。
@David 你总是可以使用 grep 来获取sanitize 参数列表的来源：它们是：sanitize.rownames.function、sanitize.colnames.function、sanitize.text.function，并且可以使用 options 而不是设置作为打印的参数，例如options(xtable.sanitize.rownames.function=identity)

【解决方案2】：

这就是我的诀窍：

mat <- round(matrix(c(0.9, 0.89, 200, 0.045, 2.0), c(1, 5)), 4)
rownames(mat) <- "$y_{t-1}$"
colnames(mat) <- c("$R^2$", "$\\bar{x}$", "F-stat", "S.E.E", "DW")
mat <- xtable(mat)
print(mat, sanitize.text.function = function(x){x})

这样可以避免表格文本中的反斜杠问题。

【讨论】：