r - 如何使用 gtable_add_grob() 不会“添加”

Question

为什么下图不显示6 个面板中的数字（g通过 ; 指定）？textGrob(label=g))如果我只使用文本 grob，这也可以，但是文本 grob 和矩形 grob 似乎并不那么容易。不幸的是，帮助页面gtable_add_grob并没有提供很多帮助......

require(gtable)
base <- gtable(widths=unit(rep(1, 2), "null"),
               heights=unit(rep(1, 3), "null"))
g <- 1
for(i in 1:3) {
    for(j in 1:2) {
        base <- gtable_add_grob(base, list(rectGrob(gp=gpar(fill="#FF000088")), textGrob(label=g)), i, j)
        g <- g+1
    }
}
grid.draw(base)

Answer 1

grobs 需要不同的名称：

base <- gtable_add_grob(base, 
          list(rectGrob(gp=gpar(fill="#FF000088")), textGrob(label=g)), i, j,
          name=1:2)