Código de cores Células de xtable

Eu usei R, sweave (masnão knitr e xtable, para criar uma tabela em que 1 coluna é um identificador e as outras três colunas são colunas "sinalizadas" que estão em branco ou contêm 1 (a sinalização).

Quero poder sombrear as últimas três colunas para que cada célula seja verde (se estiver em branco) ou vermelha (se contiver um 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: Esta é a saída que recebo via Sumatra PDF Viewer:

Fiz várias tentativas, infelizmente não as salvei antes de postar esta pergunta e não consigo me lembrar de nenhuma delas exatamente.

Mesmo que alguém pudesse me indicar as direções certas, eu realmente apreciaria. Consegui encontrar informações sobre R e LaTeX, mas não sobre R / Sweavee Látex.

questionAnswers(3)

yourAnswerToTheQuestion