Rubén Gómez Antolí
2013-May-09 00:00 UTC
[R-es] Texto en color rojo en celdas especificas de una tabla
Hola a todos:
Estoy intentando poner algunos valores en rojo de una tabla que estoy
construyendo con xtable y, aunque lo tengo al alcance de los dedos, no
lo consigo.
Voy por aquí:
# Datos a poner en tabla. Contiene valores perdidos.
#
Tabla<-structure(c(4.2, 2.5, 2.5, 2.9, 2.9, 4.1, 6, 6.1, 6.8, 6.6, 6.1,
5.3, 3.9, NA, 2.3, 2.6, 3.1, 4.3, 5.1, 5.2, 6.6, 5.9, 5.8, 4.7,
3.9, 2.4, 2.4, 2.5, 2.9, 4.4, 5.7, 6.2, 6.8, 6.5, 5.7, 4.4, 3.9,
2.6, 2.2, 2.6, 3.6, 3.9, 5.7, 6.2, 6.1, 5.9, 5.9, 5.1, 2.9, 2.5,
2.3, 2.5, 3.7, 5.6, 5.3, 5.8, 6.6, 6, 5.7, 5, 3.4, 2.8, 2.1,
1.3, 3.5, NA, 6, 6.4, 6.5, 6.7, 5.5, 4.6, 3.4, 2.5, 2.6, 2.2,
2.9, 4, 5.2, 5.7, 6.8, 6.1, 5.9, 4.7, 4, 2.4, 1.9, 2.6, 3.6,
4, 5.6, 6.3, 6.8, 6.3, 5.8, 4.5, 3.8, 3, 2.1, 2.1, 2.9, 4.6,
6.3, 7, 7.8, 7.7, 6.7, 6, 3.9, 3.1, 2.2, 2.6, 3.5, 4.3, 5.7,
6.7, 6.6, 6.7, 6.3, 4.7, 4, 3, 2.4, 2.7, 3.1, 4.5, 6, 6.9, 7.4,
7.1, 6.1, 5.6, 3.7, 2.2, 2.2, 2.5, 3.5, 4.4, 5.7, 6.4, 7.2, 6.2,
5.6, 5.1, 3.2, 2.5, 2.3, 2.5, 3.2, 4.4, 5.9, 6.3, 6.3, 6.8, 5.7,
4.9, 3.6, 2.4, 2.1, NA, NA, NA, NA, NA, NA, NA, NA, NA, 4.3,
2.9, 2, 2.2, 4.1, 5.8, 5.6, 6.9, 8.3, 8, 6.8, 5.5, 4, 2.9, 1.9,
2.4, NA, 5, 6.3, 6, 7.5, NA, NA, NA, 4.4, 3.1, 2.7, 2.7, 3.8,
5.1, 7, 7, 7.7, 7.4, 6.7, 5.5, 3.7, 3.3, 2.61, 3, 4, 5.26, 6.53,
6.56, 7.94, 7.58, 6.93, 5.53, 4.1, 2.94, 2.24, 3.11, 4.14, 5.15,
6.32, 6.98, 7.98, 7.16, 6.03, 5.01, 4, 2.66, 2.2, 2.84, 3.94,
4.77, 6.13, 7.02, 6.83, 7.1, 6.63, 5.46, 4.03, 2.74, 2.47, 2.95,
3.12, 4.13, 5.84, 6.83, 7.39, 7.13, 6.79, 5.64, 3.45, 2.69, 2.52,
2.91, 3.24, 3.97, 6.17, 6.41, 7.41, 7.2, 6.68, 5.03, 4.2, 2.93,
2.48, 3.01, 3.52, 4.68, 6.27, 6.97, 7.72, 7.39, 6.34, 5.52, 3.95,
2.88, 2.41, 2.24, 3.7, 5.23, 5.63, 5.64, 7.03, 7.13, 6.42, 5.3,
3.88, 2.81, 2.48, 2.68, 3.49, 4.91, 5.19, 7.02, 7.52, 7.37, 6.15,
4.75, 3.79, 3.1, 2.52, 2.75, 3.24, 5.15, 6.29, 6.77, 7.5, 7.13,
6.44, 4.97, 3.55, 3.13, 2.37, 2.53, 3.75, 4.96, 6.27, 7.18, 7.38,
7.23, 6.5, 4.94, 4.27, 3.04, 2.09, 2.52, 2.89, 4.1, 5.97), .Tsp =
c(1982.75,
2010.25, 12), class = "ts")
#
# Cambiamos el "NA" por ROJO
Tabla[which(is.na(Tabla))]<-rep("ROJO",
length(which(is.na(Tabla))))
#
aux.tabla<-capture.output(print.xtable(xtable(Tabla)))
#
# Valores con los que vamos a rellenar, además incluye la
# expresión de Latex que los pondrá en rojo
aux.valesc<-c("\\textcolor{rojo}{ 2.85 }", "\\textcolor{rojo}{
4.64 }",
"\\textcolor{rojo}{ 2.58 }",
"\\textcolor{rojo}{ 3.47 }", "\\textcolor{rojo}{ 4.64 }",
"\\textcolor{rojo}{ 5.81 }",
"\\textcolor{rojo}{ 6.7 }", "\\textcolor{rojo}{ 7.09 }",
"\\textcolor{rojo}{ 6.9 }",
"\\textcolor{rojo}{ 6.17 }", "\\textcolor{rojo}{ 5.07 }",
"\\textcolor{rojo}{ 3.47 }",
"\\textcolor{rojo}{ 6.9 }", "\\textcolor{rojo}{ 6.17 }",
"\\textcolor{rojo}{ 5.07 }"
)
#
Y aquí estoy, no se como sustituir los valores de aux.valesc en
aux.tabla, he probado con:
gsub("ROJO",aux.valesc,aux.tabla1)
pero no funciona ya que solo reemplaza ROJO con el primer valor de
aux.valesc.
Ya había intentado introducir el \textcolor en la variable Tabla, pero
al pasarla por xtable cambia la barra por «backslash».
La idea de hacerlo así la he sacado de aquí:
http://stackoverflow.com/questions/12148770/changing-the-color-of-negative-numbers-to-red-in-a-table-generated-with-xtable/12148962#12148962
¡Hum! ¿Quizás con el paquete Hmisc?:
http://r.789695.n4.nabble.com/Hmisc-latex-cell-background-color-td790064.html
Acepto ideas y consejos.
Gracias por vuestra atención.
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
Marcuzzi, Javier Rubén
2013-May-09 00:14 UTC
[R-es] Texto en color rojo en celdas especificas de una tabla
Hola
Yo supe realizar eso, no recuerdo bien donde lo tengo, pero en la lista está
(entre todos llegamos).
Voy a ver si lo encuentro.
-----Mensaje original-----
From: Rubén Gómez Antolí
Sent: Wednesday, May 08, 2013 9:00 PM
To: r-help-es
Subject: [R-es] Texto en color rojo en celdas especificas de una tabla
Hola a todos:
Estoy intentando poner algunos valores en rojo de una tabla que estoy
construyendo con xtable y, aunque lo tengo al alcance de los dedos, no
lo consigo.
Voy por aquí:
# Datos a poner en tabla. Contiene valores perdidos.
#
Tabla<-structure(c(4.2, 2.5, 2.5, 2.9, 2.9, 4.1, 6, 6.1, 6.8, 6.6, 6.1,
5.3, 3.9, NA, 2.3, 2.6, 3.1, 4.3, 5.1, 5.2, 6.6, 5.9, 5.8, 4.7,
3.9, 2.4, 2.4, 2.5, 2.9, 4.4, 5.7, 6.2, 6.8, 6.5, 5.7, 4.4, 3.9,
2.6, 2.2, 2.6, 3.6, 3.9, 5.7, 6.2, 6.1, 5.9, 5.9, 5.1, 2.9, 2.5,
2.3, 2.5, 3.7, 5.6, 5.3, 5.8, 6.6, 6, 5.7, 5, 3.4, 2.8, 2.1,
1.3, 3.5, NA, 6, 6.4, 6.5, 6.7, 5.5, 4.6, 3.4, 2.5, 2.6, 2.2,
2.9, 4, 5.2, 5.7, 6.8, 6.1, 5.9, 4.7, 4, 2.4, 1.9, 2.6, 3.6,
4, 5.6, 6.3, 6.8, 6.3, 5.8, 4.5, 3.8, 3, 2.1, 2.1, 2.9, 4.6,
6.3, 7, 7.8, 7.7, 6.7, 6, 3.9, 3.1, 2.2, 2.6, 3.5, 4.3, 5.7,
6.7, 6.6, 6.7, 6.3, 4.7, 4, 3, 2.4, 2.7, 3.1, 4.5, 6, 6.9, 7.4,
7.1, 6.1, 5.6, 3.7, 2.2, 2.2, 2.5, 3.5, 4.4, 5.7, 6.4, 7.2, 6.2,
5.6, 5.1, 3.2, 2.5, 2.3, 2.5, 3.2, 4.4, 5.9, 6.3, 6.3, 6.8, 5.7,
4.9, 3.6, 2.4, 2.1, NA, NA, NA, NA, NA, NA, NA, NA, NA, 4.3,
2.9, 2, 2.2, 4.1, 5.8, 5.6, 6.9, 8.3, 8, 6.8, 5.5, 4, 2.9, 1.9,
2.4, NA, 5, 6.3, 6, 7.5, NA, NA, NA, 4.4, 3.1, 2.7, 2.7, 3.8,
5.1, 7, 7, 7.7, 7.4, 6.7, 5.5, 3.7, 3.3, 2.61, 3, 4, 5.26, 6.53,
6.56, 7.94, 7.58, 6.93, 5.53, 4.1, 2.94, 2.24, 3.11, 4.14, 5.15,
6.32, 6.98, 7.98, 7.16, 6.03, 5.01, 4, 2.66, 2.2, 2.84, 3.94,
4.77, 6.13, 7.02, 6.83, 7.1, 6.63, 5.46, 4.03, 2.74, 2.47, 2.95,
3.12, 4.13, 5.84, 6.83, 7.39, 7.13, 6.79, 5.64, 3.45, 2.69, 2.52,
2.91, 3.24, 3.97, 6.17, 6.41, 7.41, 7.2, 6.68, 5.03, 4.2, 2.93,
2.48, 3.01, 3.52, 4.68, 6.27, 6.97, 7.72, 7.39, 6.34, 5.52, 3.95,
2.88, 2.41, 2.24, 3.7, 5.23, 5.63, 5.64, 7.03, 7.13, 6.42, 5.3,
3.88, 2.81, 2.48, 2.68, 3.49, 4.91, 5.19, 7.02, 7.52, 7.37, 6.15,
4.75, 3.79, 3.1, 2.52, 2.75, 3.24, 5.15, 6.29, 6.77, 7.5, 7.13,
6.44, 4.97, 3.55, 3.13, 2.37, 2.53, 3.75, 4.96, 6.27, 7.18, 7.38,
7.23, 6.5, 4.94, 4.27, 3.04, 2.09, 2.52, 2.89, 4.1, 5.97), .Tsp c(1982.75,
2010.25, 12), class = "ts")
#
# Cambiamos el "NA" por ROJO
Tabla[which(is.na(Tabla))]<-rep("ROJO",
length(which(is.na(Tabla))))
#
aux.tabla<-capture.output(print.xtable(xtable(Tabla)))
#
# Valores con los que vamos a rellenar, además incluye la
# expresión de Latex que los pondrá en rojo
aux.valesc<-c("\\textcolor{rojo}{ 2.85 }", "\\textcolor{rojo}{
4.64 }",
"\\textcolor{rojo}{ 2.58 }",
"\\textcolor{rojo}{ 3.47 }", "\\textcolor{rojo}{ 4.64 }",
"\\textcolor{rojo}{ 5.81 }",
"\\textcolor{rojo}{ 6.7 }", "\\textcolor{rojo}{ 7.09 }",
"\\textcolor{rojo}{ 6.9 }",
"\\textcolor{rojo}{ 6.17 }", "\\textcolor{rojo}{ 5.07 }",
"\\textcolor{rojo}{ 3.47 }",
"\\textcolor{rojo}{ 6.9 }", "\\textcolor{rojo}{ 6.17 }",
"\\textcolor{rojo}{ 5.07 }"
)
#
Y aquí estoy, no se como sustituir los valores de aux.valesc en
aux.tabla, he probado con:
gsub("ROJO",aux.valesc,aux.tabla1)
pero no funciona ya que solo reemplaza ROJO con el primer valor de
aux.valesc.
Ya había intentado introducir el \textcolor en la variable Tabla, pero
al pasarla por xtable cambia la barra por «backslash».
La idea de hacerlo así la he sacado de aquí:
http://stackoverflow.com/questions/12148770/changing-the-color-of-negative-numbers-to-red-in-a-table-generated-with-xtable/12148962#12148962
¡Hum! ¿Quizás con el paquete Hmisc?:
http://r.789695.n4.nabble.com/Hmisc-latex-cell-background-color-td790064.html
Acepto ideas y consejos.
Gracias por vuestra atención.
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
_______________________________________________
R-help-es mailing list
R-help-es en r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
Marcuzzi, Javier Rubén
2013-May-09 00:16 UTC
[R-es] Texto en color rojo en celdas especificas de una tabla
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
-----Mensaje original-----
From: Rubén Gómez Antolí
Sent: Wednesday, May 08, 2013 9:00 PM
To: r-help-es
Subject: [R-es] Texto en color rojo en celdas especificas de una tabla
Hola a todos:
Estoy intentando poner algunos valores en rojo de una tabla que estoy
construyendo con xtable y, aunque lo tengo al alcance de los dedos, no
lo consigo.
Voy por aquí:
# Datos a poner en tabla. Contiene valores perdidos.
#
Tabla<-structure(c(4.2, 2.5, 2.5, 2.9, 2.9, 4.1, 6, 6.1, 6.8, 6.6, 6.1,
5.3, 3.9, NA, 2.3, 2.6, 3.1, 4.3, 5.1, 5.2, 6.6, 5.9, 5.8, 4.7,
3.9, 2.4, 2.4, 2.5, 2.9, 4.4, 5.7, 6.2, 6.8, 6.5, 5.7, 4.4, 3.9,
2.6, 2.2, 2.6, 3.6, 3.9, 5.7, 6.2, 6.1, 5.9, 5.9, 5.1, 2.9, 2.5,
2.3, 2.5, 3.7, 5.6, 5.3, 5.8, 6.6, 6, 5.7, 5, 3.4, 2.8, 2.1,
1.3, 3.5, NA, 6, 6.4, 6.5, 6.7, 5.5, 4.6, 3.4, 2.5, 2.6, 2.2,
2.9, 4, 5.2, 5.7, 6.8, 6.1, 5.9, 4.7, 4, 2.4, 1.9, 2.6, 3.6,
4, 5.6, 6.3, 6.8, 6.3, 5.8, 4.5, 3.8, 3, 2.1, 2.1, 2.9, 4.6,
6.3, 7, 7.8, 7.7, 6.7, 6, 3.9, 3.1, 2.2, 2.6, 3.5, 4.3, 5.7,
6.7, 6.6, 6.7, 6.3, 4.7, 4, 3, 2.4, 2.7, 3.1, 4.5, 6, 6.9, 7.4,
7.1, 6.1, 5.6, 3.7, 2.2, 2.2, 2.5, 3.5, 4.4, 5.7, 6.4, 7.2, 6.2,
5.6, 5.1, 3.2, 2.5, 2.3, 2.5, 3.2, 4.4, 5.9, 6.3, 6.3, 6.8, 5.7,
4.9, 3.6, 2.4, 2.1, NA, NA, NA, NA, NA, NA, NA, NA, NA, 4.3,
2.9, 2, 2.2, 4.1, 5.8, 5.6, 6.9, 8.3, 8, 6.8, 5.5, 4, 2.9, 1.9,
2.4, NA, 5, 6.3, 6, 7.5, NA, NA, NA, 4.4, 3.1, 2.7, 2.7, 3.8,
5.1, 7, 7, 7.7, 7.4, 6.7, 5.5, 3.7, 3.3, 2.61, 3, 4, 5.26, 6.53,
6.56, 7.94, 7.58, 6.93, 5.53, 4.1, 2.94, 2.24, 3.11, 4.14, 5.15,
6.32, 6.98, 7.98, 7.16, 6.03, 5.01, 4, 2.66, 2.2, 2.84, 3.94,
4.77, 6.13, 7.02, 6.83, 7.1, 6.63, 5.46, 4.03, 2.74, 2.47, 2.95,
3.12, 4.13, 5.84, 6.83, 7.39, 7.13, 6.79, 5.64, 3.45, 2.69, 2.52,
2.91, 3.24, 3.97, 6.17, 6.41, 7.41, 7.2, 6.68, 5.03, 4.2, 2.93,
2.48, 3.01, 3.52, 4.68, 6.27, 6.97, 7.72, 7.39, 6.34, 5.52, 3.95,
2.88, 2.41, 2.24, 3.7, 5.23, 5.63, 5.64, 7.03, 7.13, 6.42, 5.3,
3.88, 2.81, 2.48, 2.68, 3.49, 4.91, 5.19, 7.02, 7.52, 7.37, 6.15,
4.75, 3.79, 3.1, 2.52, 2.75, 3.24, 5.15, 6.29, 6.77, 7.5, 7.13,
6.44, 4.97, 3.55, 3.13, 2.37, 2.53, 3.75, 4.96, 6.27, 7.18, 7.38,
7.23, 6.5, 4.94, 4.27, 3.04, 2.09, 2.52, 2.89, 4.1, 5.97), .Tsp c(1982.75,
2010.25, 12), class = "ts")
#
# Cambiamos el "NA" por ROJO
Tabla[which(is.na(Tabla))]<-rep("ROJO",
length(which(is.na(Tabla))))
#
aux.tabla<-capture.output(print.xtable(xtable(Tabla)))
#
# Valores con los que vamos a rellenar, además incluye la
# expresión de Latex que los pondrá en rojo
aux.valesc<-c("\\textcolor{rojo}{ 2.85 }", "\\textcolor{rojo}{
4.64 }",
"\\textcolor{rojo}{ 2.58 }",
"\\textcolor{rojo}{ 3.47 }", "\\textcolor{rojo}{ 4.64 }",
"\\textcolor{rojo}{ 5.81 }",
"\\textcolor{rojo}{ 6.7 }", "\\textcolor{rojo}{ 7.09 }",
"\\textcolor{rojo}{ 6.9 }",
"\\textcolor{rojo}{ 6.17 }", "\\textcolor{rojo}{ 5.07 }",
"\\textcolor{rojo}{ 3.47 }",
"\\textcolor{rojo}{ 6.9 }", "\\textcolor{rojo}{ 6.17 }",
"\\textcolor{rojo}{ 5.07 }"
)
#
Y aquí estoy, no se como sustituir los valores de aux.valesc en
aux.tabla, he probado con:
gsub("ROJO",aux.valesc,aux.tabla1)
pero no funciona ya que solo reemplaza ROJO con el primer valor de
aux.valesc.
Ya había intentado introducir el \textcolor en la variable Tabla, pero
al pasarla por xtable cambia la barra por «backslash».
La idea de hacerlo así la he sacado de aquí:
http://stackoverflow.com/questions/12148770/changing-the-color-of-negative-numbers-to-red-in-a-table-generated-with-xtable/12148962#12148962
¡Hum! ¿Quizás con el paquete Hmisc?:
http://r.789695.n4.nabble.com/Hmisc-latex-cell-background-color-td790064.html
Acepto ideas y consejos.
Gracias por vuestra atención.
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
_______________________________________________
R-help-es mailing list
R-help-es en r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
Rubén Gómez Antolí
2013-May-09 00:27 UTC
[R-es] Texto en color rojo en celdas especificas de una tabla
Hola: 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")]) > daJavier, ¡que velocidad! Gracias. (No recordaba que hubiera salido el tema en la lista, perdón, tenía que haber mirado antes) Mañana lo pruebo, tendré que adaptar a mi caso, que hoy voy a dar de mano ya. :^) 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
Marcuzzi, Javier Rubén
2013-May-09 00:48 UTC
[R-es] Texto en color rojo en celdas especificas de una tabla
Estimado Rubén Gómez Antolí Está en la lista, recuerdo que yo solicité ayuda por el mismo tema, pero ni idea de cuanto tiempo pasó. Pero había algo con latex respecto a la forma de trabajar con los colores (me dio trabajo). Javier Marcuzzi -----Mensaje original----- From: Rubén Gómez Antolí Sent: Wednesday, May 08, 2013 9:27 PM To: "Marcuzzi, Javier Rubén" Cc: r-help-es Subject: Re: [R-es] Texto en color rojo en celdas especificas de una tabla Hola: 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")]) > daJavier, ¡que velocidad! Gracias. (No recordaba que hubiera salido el tema en la lista, perdón, tenía que haber mirado antes) Mañana lo pruebo, tendré que adaptar a mi caso, que hoy voy a dar de mano ya. :^) 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
Rubén Gómez Antolí
2013-May-09 09:03 UTC
[R-es] Texto en color rojo en celdas especificas de una tabla
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")]) > daPues 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
Proyecto R-UCA
2013-May-09 10:24 UTC
[R-es] Texto en color rojo en celdas especificas de una tabla
La clave está en la función sanitize.text.function:
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)
da
print(xtable(da[,c("id","score.string")]),
type="latex",
sanitize.text.function = function(x){x})
--
==Proyecto R-UCA
http://knuth.uca.es/R
r-uca en uca.es
Manuel Muñoz Márquez
===
Rubén Gómez Antolí
2013-May-09 11:09 UTC
[R-es] Texto en color rojo en celdas especificas de una tabla
Hola: El 09/05/13 12:24, Proyecto R-UCA escribió:> La clave está en la función sanitize.text.function: > > 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) > da > > print(xtable(da[,c("id","score.string")]), type="latex", > sanitize.text.function = function(x){x})Os prometo que he utilizado esa función en innumerables ocasiones, para evitar problemas con el $ y demás, pero ni se me ha pasado por la cabeza utilizarla ahora. :^( Muchísimas gracias. 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
Marcuzzi, Javier Rubén
2013-May-09 13:42 UTC
[R-es] Texto en color rojo en celdas especificas de una tabla
Perdón, el archivo era otro, esta es la versión que funciona.
<<results=tex>>da <- data.frame(id=letters[1:5], score=1:5*2)
col <- function(x){
ifelse(x>7,
paste("\\color{blue}{", formatC(x, dig=2,
format="f"), "}"),
paste("\\color{red}{", formatC(x, dig=2,
format="f"), "}"))
}
da$score.string <- col(da$score)
print(xtable(da[,c("id","score.string")]),
sanitize.text.function =
function(x){x})
@
-----Mensaje original-----
From: Rubén Gómez Antolí
Sent: Thursday, May 09, 2013 8:09 AM
To: r-help-es
Subject: Re: [R-es] Texto en color rojo en celdas especificas de una tabla
Hola:
El 09/05/13 12:24, Proyecto R-UCA escribió:> La clave está en la función sanitize.text.function:
>
> 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)
> da
>
> print(xtable(da[,c("id","score.string")]),
type="latex",
> sanitize.text.function = function(x){x})
Os prometo que he utilizado esa función en innumerables ocasiones, para
evitar problemas con el $ y demás, pero ni se me ha pasado por la cabeza
utilizarla ahora. :^(
Muchísimas gracias.
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
_______________________________________________
R-help-es mailing list
R-help-es en r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es