0

以下は、個々の grob 要素のフォント サイズを変更する方法を示す、baptiste が提供するサンプル コードです。

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

しかし、これは正しい構文ではありません。

4

1 に答える 1

1

次のようにできます。

lapply(1:length(g$grobs),function(i){g$grobs[[i]]$gp$fontsize <<- 35})
grid.draw(g)
于 2015-10-30T10:14:35.313 に答える