R help - Jun 2011 - xtable with conditional formatting using \textcolor

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.

=========================================================================Walmes
Marques Zeviani
LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)
Departamento de Estatística - Universidade Federal do Paraná
fone: (+55) 41 3361 3573
VoIP: (3361 3600) 1053 1173
e-mail: walmes@ufpr.br
twitter: @walmeszeviani
homepage: http://www.leg.ufpr.br/~walmes
linux user number: 531218
=========================================================================
	[[alternative HTML version deleted]]

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