r - 为R中的tableGrob自定义一列的字体颜色？

Question

我想自定义 tableGrob 中某一列的字体颜色。

Here is the original table , and this is what I would like the table to look like第五列中的零更改为“白色”

我在这里遵循了 baptise 的指示:How do I customize particular columns for a tableGrob in R?没有成功。

这是我的简单数据框:

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))

按照上面 baptiste 的示例，我尝试为第五列指定颜色:

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

这是生成表格的代码:

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)

此代码仍在按行而不是按列更改颜色。对此问题的任何帮助将不胜感激。

我是堆栈溢出的新手，这是我的第一个问题，如果答案实际上是代码中的错误(例如缺少括号等)，请原谅我!

Answer 1

colours are recycled columnwise ，所以如果你想为不同的列使用不同的颜色，你需要传递一个完整的颜色矩阵，例如

colours <- matrix("black", nrow(count), ncol(count))
colours[2:nrow(colours), ncol(colours)] <- "white"