Skip to contents

Decorate Set of grobs and Add Page Numbering

Source: R/decorate_grob.R
decorate_grob_set.Rd

[Stable]

Note that this uses the decorate_grob_factory function.

Usage 

decorate_grob_set(grobs, ...)

Arguments

grobs

a list of grid grobs

...

arguments passed on to decorate_grob

Author

Adrian Waddell (waddella) adrian.waddell@roche.com

Examples 

library(ggplot2)
g <- with(iris, {
  list(
    ggplotGrob(qplot(Sepal.Length, Sepal.Width, col = Species)),
    ggplotGrob(qplot(Sepal.Length, Petal.Length, col = Species)),
    ggplotGrob(qplot(Sepal.Length, Petal.Width, col = Species)),
    ggplotGrob(qplot(Sepal.Width, Petal.Length, col = Species)),
    ggplotGrob(qplot(Sepal.Width, Petal.Width, col = Species)),
    ggplotGrob(qplot(Petal.Length, Petal.Width, col = Species))
  )
})
lg <- decorate_grob_set(grobs = g, titles = "Hello\nOne\nTwo\nThree", footnotes = "")
library(grid)

draw_grob(lg[[1]])

draw_grob(lg[[2]])

draw_grob(lg[[6]])