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

[Proyecto R-UCA]

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
===