library(knitr) opts_chunk$set(message=FALSE, fig.width=4, fig.height=3)
The grid
package provides low-level functions to create graphical objects (grobs
), and position them on a page in specific viewports
. The gtable
package introduced a higher-level layout scheme, arguably more amenable to user-level interaction. With the arrangeGrob/grid.arrange()
pair of functions, gridExtra
builds upon gtable
to arrange multiple grobs on a page.
In this example we mix a few grobs and plots,
library(gridExtra) library(grid) library(ggplot2) library(lattice) p <- qplot(1,1) p2 <- xyplot(1~1) r <- rectGrob(gp=gpar(fill="grey90")) t <- textGrob("text") grid.arrange(t, p, p2, r, ncol=2)
gs <- lapply(1:9, function(ii) grobTree(rectGrob(gp=gpar(fill=ii, alpha=0.5)), textGrob(ii))) grid.arrange(grobs=gs, ncol=4, top="top label", bottom="bottom\nlabel", left="left label", right="right label") grid.rect(gp=gpar(fill=NA))
We can provide a matrix defining the layout,
lay <- rbind(c(1,1,1,2,3), c(1,1,1,4,5), c(6,7,8,9,9)) grid.arrange(grobs = gs, layout_matrix = lay)
The layout itself may contain holes, but note that for any given grob index the region must be simply connected (no hole),
hlay <- rbind(c(1,1,NA,2,3), c(1,1,NA,4,NA), c(NA,7,8,9,NA)) select_grobs <- function(lay) { id <- unique(c(t(lay))) id[!is.na(id)] } grid.arrange(grobs=gs[select_grobs(hlay)], layout_matrix=hlay)
All cells are of equal size by default, but users may pass explicity widths
and/or heights
in any valid grid units, or as relative numbers (interpreted as null
),
grid.arrange(grobs=gs[1:3], ncol=2, widths = 1:2, heights=unit(c(1,10), c("in", "mm")))
arrangeGrob
The grid.arrange()
function draws on the device; for more complex layouts, we may want to store the gtable and combine it with other objects, e.g. forming nested layouts. To this end, use arrangeGrob()
,
g1 <- arrangeGrob(grobs = gs, layout_matrix = t(lay)) g2 <- arrangeGrob(grobs = gs, layout_matrix = lay) grid.arrange(g1, g2, ncol=2)
Finally, we may want to place grobs on multiple pages; the marrangeGrob()
function provides a convenient interface for this, also compatible with ggsave()
.
set.seed(123) pl <- lapply(1:11, function(.x) qplot(1:10, rnorm(10), main=paste("plot", .x))) ml <- marrangeGrob(pl, nrow=2, ncol=2) ## non-interactive use, multipage pdf ## ggsave("multipage.pdf", ml) ## interactive use; calling `dev.new` multiple times ml
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.