我想自定义tableGrob中某一特定列的字体颜色。
这是原始表格,这就是我希望表格看起来的样子,第五列中的零变为“白色”
我在这里遵循了baptise的指示:如何在R中为tableGrob自定义特定的列?没有成功。
这是我的简单数据框:
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)
该代码仍在按行而不是按列更改颜色。在这个问题上的任何帮助将不胜感激。
我是堆栈溢出的新手,这是我的第一个问题,如果答案实际上是代码中的错误(例如缺少括号等),请原谅我!
颜色按列进行回收,因此,如果您想为不同的列使用不同的颜色,则需要传递完整的颜色矩阵,例如
colours <- matrix("black", nrow(count), ncol(count))
colours[2:nrow(colours), ncol(colours)] <- "white"
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句