r - 在使用 xtable() 生成的表中将负数的颜色更改为红色？

Question

我正在用 knitr 用 R 写报告。我正在使用 xtable() 在报告中生成表格。我的一张表包括负数和正数。我想将负数的颜色更改为红色。我怎样才能做到这一点？显然，一个简单的解决方案是更改 xtable 生成的乳胶代码，但请注意，我有一个自动报告，数字可以随新数据集而改变，我不想手动设置颜色。

这是一个简单的代码：

\documentclass{article}
\begin{document}
<<simpleExamp, results=tex, echo=FALSE>>=
library(knitr)
library(xtable)
testMatrix <- matrix(c(sample(-10:10,10)), ncol = 2)
xtable(testMatrix)
@
\end{document} 

如何使负数变为红色？感谢您的帮助。

Answer 1

您可以使用capture.output()来捕获由（隐式）调用打印的行print.xtable()。然后应用gsub()到输出，使用围绕每个负数的模式和替换\textcolor{red}{}。最后，使用cat()withsep="\n"将修改后的行写入*.tex文件。

\documentclass{article}
\begin{document}
<<simpleExamp, results="asis", echo=FALSE>>=
library(knitr)
library(xtable)
testMatrix <- matrix(c(sample(-10:10,10)), ncol = 2)
## I added the following three lines
xt <- capture.output(xtable(testMatrix))
xt_mod <- gsub("(\\s|^)(-\\d*)", "\\1\\\\textcolor{red}{\\2}", xt)
cat(xt_mod, sep="\n")
@
\end{document}

（另请注意，我替换为results=texknitr '更喜欢'并且它将更快地处理。）results="asis"

---

编辑：添加结果表的图像。（以 SO 就绪的形式获取它需要对代码进行一些调整，这也包括在下面。）

\documentclass{standalone}
\renewenvironment{table}{}{}% Ignore `table` environment in standalone mode.
\begin{document}
<<simpleExamp, results="asis", echo=FALSE>>=
library(knitr)
library(xtable)
cat("\\Huge\n\n")
testMatrix <- matrix(c(sample(-10:10,10)), ncol = 2)
## I added the following three lines
xt <- capture.output(print.xtable(xtable(testMatrix), table.placement=NULL))
xt_mod <- gsub("(\\s|^)(-\\d*)", "\\1\\\\textcolor{red}{\\2}", xt)
cat(xt_mod, sep="\n")
@
\end{document}

Answer 2

复制 Josh O'Brien 的答案，稍作调整以用小数为表格着色：

\documentclass{article}
\begin{document}
<<simpleExamp, results="asis", echo=FALSE>>=
library(knitr)
library(xtable)
testMatrix <- matrix(c(sample(-10:10,10)), ncol = 2)*1.1
## I added the following three lines
xt <- capture.output(xtable(testMatrix))
xt_mod <- gsub("(\\s|^)(-\\d\\.\\d*)", "\\1\\\\textcolor{red}{\\2}", xt)
cat(xt_mod, sep="\n")
@
\end{document}