xtable with conditional formatting using \textcolor
On Jun 1, 2011, at 1:33 PM, Walmes Zeviani wrote:
Hello list,
I'm doing a table with scores and I want include colors to represent status
of an individual. I'm using sweave <<results=tex>>= and xtable but I can't
get a result I want. My attemps are
#-----------------------------------------------------------------------------
# code R
da <- data.frame(id=letters[1:5], score=1:5*2)
col <- function(x){
ifelse(x>7,
paste("\textcolor{blue}{", formatC(x, dig=2, format="f"), "}"),
paste("\textcolor{red}{", formatC(x, dig=2, format="f"), "}"))
}
da$score.string <- col(da$score)
require(xtable)
xtable(da[,c("id","score.string")])
#-----------------------------------------------------------------------------
actual result
#-----------------------------------------------------------------------------
\begin{tabular}{rll}
\hline
& id & score.string \\
\hline
1 & a & extcolor\{red\}\{ 2.00 \} \\
2 & b & extcolor\{red\}\{ 4.00 \} \\
3 & c & extcolor\{red\}\{ 6.00 \} \\
4 & d & extcolor\{blue\}\{ 8.00 \} \\
5 & e & extcolor\{blue\}\{ 10.00 \} \\
\hline
\end{tabular}
#-----------------------------------------------------------------------------
desired result (lines omited to save space)
#-----------------------------------------------------------------------------
1 & a & \textcolor{red}{ 2.00 } \\
2 & b & \textcolor{red}{ 4.00} \\
#-----------------------------------------------------------------------------
Any contribution will be useful. Thanks.
Walmes.
When the '\t' is being cat()'d to the TeX file (or console) by print.xtable(), it is being interpreted as a tab character. You need to escape it with additional backslashes and then adjust the sanitize.text.function in print.xtable() so that it does not touch the backslashes:
da <- data.frame(id=letters[1:5], score=1:5*2)
col <- function(x){
ifelse(x>7,
paste("\\textcolor{blue}{", formatC(x, dig=2, format="f"), "}"),
paste("\\textcolor{red}{", formatC(x, dig=2, format="f"), "}"))
}
da$score.string <- col(da$score)
da
id score score.string
1 a 2 \\textcolor{red}{ 2.00 }
2 b 4 \\textcolor{red}{ 4.00 }
3 c 6 \\textcolor{red}{ 6.00 }
4 d 8 \\textcolor{blue}{ 8.00 }
5 e 10 \\textcolor{blue}{ 10.00 }
require(xtable)
print(xtable(da[,c("id","score.string")]), sanitize.text.function = function(x){x})
That will give you:
% latex table generated in R 2.13.0 by xtable 1.5-6 package
% Wed Jun 1 13:44:54 2011
\begin{table}[ht]
\begin{center}
\begin{tabular}{rll}
\hline
& id & score.string \\
\hline
1 & a & \textcolor{red}{ 2.00 } \\
2 & b & \textcolor{red}{ 4.00 } \\
3 & c & \textcolor{red}{ 6.00 } \\
4 & d & \textcolor{blue}{ 8.00 } \\
5 & e & \textcolor{blue}{ 10.00 } \\
\hline
\end{tabular}
\end{center}
\end{table}
HTH,
Marc Schwartz