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