Anpassen der Schriftfarbe einer Spalte für einen tableGrob in R?

Ich möchte die Schriftfarbe einer bestimmten Spalte in meinem tableGrob anpassen.

Hier ist die ursprüngliche Tabelle, und so soll die Tabelle aussehen mit den Nullen in der fünften Spalte in "weiß" geändert

Ich habe die Anweisungen der Taufe hier befolgt:Wie passe ich bestimmte Spalten für einen tableGrob in R an? ohne Erfolg.

Hier ist mein einfacher Datenrahmen:

count <- data.frame("day17" = c(17, 4, 4, 4, 3, 2), 
"day27" = c(27, 4, 5, 5, 5, 1), "day37" = c(37, 5, 5, 4, 4, 3), 
"day47" = c(47, 2, 1, 3, 0, 0), "day57" = c("Time (d)", 0, 0, 0, 0, 0))

Folgend dem obigen Beispiel von Baptiste habe ich versucht, die Farben für die fünfte Spalte anzugeben:

colours <- matrix(c("black", "white", "white", "white", "white", "white"), ncol=1, nrow=nrow(count), byrow=FALSE)

und hier ist der Code zum Erzeugen der Tabelle:

table_theme <- ttheme_minimal(core = list(fg_params=list(col=(colours))))
grid.newpage() 
table <- tableGrob(count, theme = table_theme, rows=NULL, cols=NULL)  
grid.draw(table)

Dieser Code ändert immer noch die Farben auf Zeilenbasis und nicht auf Spaltenbasis. Jede Hilfe in dieser Angelegenheit wäre sehr dankbar.

Ich bin neu in Stack-Overflow und dies ist meine erste Frage, bitte vergib mir, wenn die Antwort tatsächlich ein Fehler im Code ist, wie fehlende Klammern usw.!

Antworten auf die Frage(2)

Ihre Antwort auf die Frage