xtable für die bedingte Zellenformatierung von signifikanten p-Werten der Tabelle

Ich benutze xtable, um Tabellen zum Einfügen in Latex zu generieren, und habe mich gefragt, ob es eine Möglichkeit gibt, Zellen so zu formatieren, dass alle signifikanten p-Werte grau sind. Ich benutze Knitr in TexShop.

Hier ist ein Beispiel mit derdiamonds Daten in ggplot2 und Ausführen eines TukeyHSD-Tests zur Vorhersagecarat voncut.

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

Ich kann dann bekommendata.hsd.result in das xtable Format mit:

xtable(data.hsd.result)

In Latex sieht die Ausgabe folgendermaßen aus:

                         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

Ist es möglich, p-Werte <0,05 zu haben, um einen grauen Hintergrund automatisch oder auf irgendeine Weise hervorzuheben? Für diesen Satz wäre es natürlich die ganze Spalte, aber ich hoffe auf etwas, das mit all meinen Daten funktioniert.