Comment utiliser gtable_add_grob() ne pas 'ajouter'

Question

Pourquoi le graphique suivant n'affiche-t-il pas les nombres (g, spécifiés via textGrob(label=g))) dans les 6 panneaux? Si j'utilise seulement le texte grob, cela fonctionne aussi, mais un texte grob et un grob rectangulaire ne semblent pas si faciles. Malheureusement, la page d'aide de gtable_add_grob ne donne pas beaucoup d'aide ...

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

Les Grobs ont besoin des noms différents:

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