Изменение цвета отрицательных чисел на красный в таблице, сгенерированной с помощью xtable ()?

Вы можете использовать capture.output() для захвата строк, напечатанных (неявным) вызовом print.xtable(). Затем примените к выходным данным gsub(), используя шаблон и замену, окружающие каждое отрицательное число \textcolor{red}{}. Наконец, используйте cat() с sep="\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=tex на results="asis", который knitr «предпочитает» и который будет быстрее обрабатываться.)

Редактировать: добавление изображения результирующей таблицы. (Чтобы получить его в готовой к 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}

Скопировал ответ Джоша О'Брайена с небольшой настройкой, чтобы раскрасить таблицу десятичными знаками:

\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}