library(grid)
grob1 <- rectGrob()
grob2 <- circleGrob()
grob3 <- linesGrob()
grob4 <- polygonGrob()