xtable para célula condicional que forma valores significativos de p da tabela

Estou usando o xtable para gerar tabelas para colocar no látex e queria saber se existe uma maneira de ter formatação condicional de células para que todos os valores-p significativos estejam em cinza? Estou usando o Knitr no TexShop.

Aqui está um exemplo usando odiamonds dados no ggplot2 e executando um teste TukeyHSD para prevercarat decut.

library(ggplot2)
library(xtable)
summary(data.aov <- aov(carat~cut, data = diamonds))
data.hsd<-TukeyHSD(data.aov)
data.hsd.result<-data.frame(data.hsd$cut)
data.hsd.result

Então eu consigodata.hsd.result no formato xtable com:

xtable(data.hsd.result)

No Látex, a saída é assim:

                         diff         lwr         upr        p.adj
Good-Fair         -0.19695197 -0.23342631 -0.16047764 0.000000e+00
Very Good-Fair    -0.23975525 -0.27344709 -0.20606342 0.000000e+00
Premium-Fair      -0.15418175 -0.18762721 -0.12073628 0.000000e+00
Ideal-Fair        -0.34329965 -0.37610961 -0.31048970 0.000000e+00
Very Good-Good    -0.04280328 -0.06430194 -0.02130461 5.585171e-07
Premium-Good       0.04277023  0.02165976  0.06388070 3.256208e-07
Ideal-Good        -0.14634768 -0.16643613 -0.12625923 0.000000e+00
Premium-Very Good  0.08557350  0.06974902  0.10139799 0.000000e+00
Ideal-Very Good   -0.10354440 -0.11797729 -0.08911151 0.000000e+00
Ideal-Premium     -0.18911791 -0.20296592 -0.17526989 0.000000e+00

É possível ter valores de p <0,05 para ter um fundo cinza automaticamente ou realçado de alguma forma? Obviamente, para este conjunto, seria a coluna inteira, mas espero algo que funcione com todos os meus dados.

questionAnswers(2)

yourAnswerToTheQuestion