tablegrob返回代码而不是表

Question

我对tablegrob有问题：

   require(gridExtra)
   require(grid)
   head(iris,5)

这将产生普通表。现在我想使用tableGrob将其放在网格上。所以

 p4<- tableGrob(head(iris,5))
    p4

tablegrob返回

TableGrob (6 x 6) "rowhead-fg": 72 grobs
    z     cells       name                 grob
1   1 (1-1,1-1) rowhead-fg text[GRID.text.3354]
2   2 (2-2,1-1) rowhead-fg text[GRID.text.3355]
3   3 (3-3,1-1) rowhead-fg text[GRID.text.3356]
4   4 (4-4,1-1) rowhead-fg text[GRID.text.3357]
5   5 (5-5,1-1) rowhead-fg text[GRID.tex

有人有解决这个问题的想法吗？