Celdas de código de color de xtable

He usado R, sweave (perono knitr, y xtable, para crear una tabla, donde 1 columna es un identificador, y las otras tres columnas son columnas de "bandera" que están en blanco o contienen un 1 (la bandera).

Quiero poder sombrear las últimas tres columnas para que cada celda sea verde (si está en blanco) o roja (si contiene un 1).

<<xtable3, results=tex>>=
id <- c("1_1", "1_2", "2_1")
a <- c(1,"","")
b <- c("", 1, "")
c <- c("", "", 1)
d <- data.frame(id, a,b,c)
dx <- xtable(d)
align(dx) <- "|c|c|c|c|c|"
print(dx, hline.after=-1:3)
@

Editar: Este es el resultado que obtengo a través de Sumatra PDF Viewer:

He hecho varios intentos, desafortunadamente no los guardé antes de publicar esta pregunta y no puedo recordar ninguno de los intentos exactamente.

Incluso si alguien pudiera señalarme en la dirección correcta, realmente lo agradecería. He podido encontrar información sobre R y LaTeX, pero no información sobre R / Sweavey Látex.

Respuestas a la pregunta(3)

Su respuesta a la pregunta