更改表

Question

以下是baptiste提供的一些示例代码，其中显示了如何修改单个grob元素的字体大小。

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)

我怎样才能做到表格中的所有凹凸呢？

我尝试过使用

g$grobs["gp"] <- gpar(fontsize=15, fontface="bold")

但这不是正确的语法。

Answer 1

你可以这样做：

lapply(1:length(g$grobs),function(i){g$grobs[[i]]$gp$fontsize <<- 35})
grid.draw(g)