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
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
