I have a related question:
dataframe df contains values like
>df
.. "\\textbf{ 0.644 }" ..
and the line
> print( xtable(df , sanitize.text.function = function(x){x}))
converts them to
.. & $\backslash$textbf\{ 0.644 \} & ..
escaping both double backslashes and brackes.
maybe somebody here knows how to prevent xtable from escaping the code?
best regards,
lukas kohl
On Wed, Jun 1, 2011 at 8:47 PM, Marc Schwartz <marc_schwa...@me.com> wrote:
> 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.
>
______________________________________________
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.
