[R-es] Texto en color rojo en celdas especificas de una tabla

[Rubén Gómez Antolí]

Hola a todos:

El 09/05/13 02:16, Marcuzzi, Javier Rubén escribió:
> Lo encontré
> da <- data.frame(id=letters[1:5], score=1:5*2)
> da
> 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$score.string
> require(xtable)
> xtable(da[,c("id","score.string")])
> da

Pues no funciona este código.

Si se ejecuta tal cual, la salida de xtable queda así:

xtable(da[,c("id","score.string")])
% latex table generated in R 3.0.0 by xtable 1.7-1 package
% Thu May  9 10:48:42 2013
\begin{table}[ht]
\centering
\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}
\end{table}

Habría que corregir en la función col el «\textcolor» por «\\textcolor» 
y, entonces, xtable te cambia la barra por «$\backslash$»:

xtable(da[,c("id","score.string")])
% latex table generated in R 3.0.0 by xtable 1.7-1 package
% Thu May  9 10:50:05 2013
\begin{table}[ht]
\centering
\begin{tabular}{rll}
   \hline
  & id & score.string \\
   \hline
1 & a & $\backslash$textcolor\{red\}\{ 2.00 \} \\
   2 & b & $\backslash$textcolor\{red\}\{ 4.00 \} \\
   3 & c & $\backslash$textcolor\{red\}\{ 6.00 \} \\
   4 & d & $\backslash$textcolor\{blue\}\{ 8.00 \} \\
   5 & e & $\backslash$textcolor\{blue\}\{ 10.00 \} \\
    \hline
\end{tabular}
\end{table}

Y no encuentro la forma de que xtable no cambie esa barra. De ahí que 
intentará la línea de marcar con "ROJO", para después sustituir en la 
salida de xtable, pero nada.

En fin, esta noche seguiré a ver, ahora tengo que ponerme con otras cosas.

Salud y Revolución.

Lobo.
-- 
Libertad es poder elegir en cualquier momento. Ahora yo elijo GNU/Linux,
para no atar mis manos con las cadenas del soft propietario.
Porque la libertad no es tu derecho, es tu responsabilidad.
http://www.mucharuina.com
---------
Desde El Ejido, en Almería, usuario registrado Linux #294013
http://www.counter.li.org