我对gridExtra包中的tableGrob / grid.table有疑问。使用常规参数设置,可以直接为备用行着色。但是,我希望能够更好地控制行的着色。
例如,是否可以为不同颜色的每个第三行着色? 我怀疑grid.edit函数是解决这个问题的一种方法,从这个链接的例子来看:http://code.google.com/p/gridextra/wiki/tableGrob但是我无法弄清楚如何将它应用到我的问题中。
我相信发布此问题的人也有同样的想法。 Table with rows of different colors with tableGrob
由于兼容性问题,我目前仍然坚持使用R 2.13,因此如果有任何建议不涉及更理想的更高版本。
示例代码:
library(gridExtra)
grid.table(mtcars[1:10, ],
gpar.coretext = gpar(fontsize = 10),
gpar.corefill = gpar(fill = "lightblue", alpha=0.5, col = NA),
h.even.alpha = 0.5
)
答案 0 :(得分:8)
从gridExtra的v> = 2.0.0开始,grid.table
现在基于gtable,并且可以自定义为比以前版本更深层次。 vignette has more examples,但为了完整起见,这是一个说明如何突出显示特定单元格的示例
g <- tableGrob(iris[1:4, 1:3])
find_cell <- function(table, row, col, name="core-fg"){
l <- table$layout
which(l$t==row & l$l==col & l$name==name)
}
ind <- find_cell(g, 3, 2, "core-fg")
ind2 <- find_cell(g, 2, 3, "core-bg")
g$grobs[ind][[1]][["gp"]] <- gpar(fontsize=15, fontface="bold")
g$grobs[ind2][[1]][["gp"]] <- gpar(fill="darkolivegreen1", col = "darkolivegreen4", lwd=5)
grid.draw(g)
编辑:上述功能很容易“矢量化”
find_cells <- function(table, row, col, name="core-fg"){
l <- table$layout
unlist(Map(function(r, c) which(((l$t-1) == r) & ((l$l-1) == c) & (l$name == name)), row, col))
}
modify_cells <- function(g, ids, gp=gpar()){
for(id in ids) g$grobs[id][[1]][["gp"]] <- gp
return(g)
}
ids <- find_cells(g, 1:3, c(3,2, 1), "core-fg")
g <- modify_cells(g, ids, gpar(fontsize=15, fontface="bold"))
grid.newpage()
grid.draw(g)
请注意,在大多数情况下,在表构造期间指定参数会更有意义,
faces <- sample(1:4, size = prod(dim(iris[1:4, 1:2])), replace = TRUE)
tt <- ttheme_default(core=list(fg_params=list(fontface=faces)))
grid.table(iris[1:4, 1:2], theme=tt)