Create a single column gtable.

a <- rectGrob(gp = gpar(fill = "red"))
b <- circleGrob()
c <- linesGrob()
gt <- gtable_col("demo", list(a, b, c))
gt

## TableGrob (3 x 1) "demo": 3 grobs
##   z     cells name                  grob
## 1 1 (1-1,1-1) demo     rect[GRID.rect.1]
## 2 2 (2-2,1-1) demo circle[GRID.circle.2]
## 3 3 (3-3,1-1) demo   lines[GRID.lines.3]

plot(gt)

gtable_show_layout(gt)