gridExtra

Provides a number of user-level functions to work with "grid" graphics, notably to arrange multiple grid-based plots on a page, and draw tables.
提供一些用户级别的函数来处理“网格”图形，特别是在页面上安排多个基于网格的绘图，并绘制表格。

基础使用
basic usage
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)   ##lattice包

r <- rectGrob(gp = gpar(fill = "grey90"))   ##rectGrob
t <- textGrob("text") 

grid.arrange(t,p,p2,ncol = 2)

Title and/or annotations

gs <- lapply(1:9, function(ii)
    grobTree(rectGrob(gp = gpar(fill = ii,alpha = 0.5)),textGrob(ii)))

# gs
grid.arrange(grobs = gs,ncol = 4,top = "top label",bottom = "bottom\nlabel",left = "left label",right = "right label")

grid.rect(gp = gpar(fill = NA))  ##外边框

Complex layouts
复杂布局
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")))

Nested layouts with 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,usearrangeGrob().

g1 <- arrangeGrob(grobs = gs,layout_matrix = t(lay))
g2 <- arrangeGrob(grobs = gs,layout_matrix = lay)
grid.arrange(g1,g2,ncol = 2)

Multiple pages output
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)
ml

---

Regular polygons and ellipses in grid graphics
多边形和椭圆

N <- 5
xy <- polygon_regular(N)*2

# draw multiple polygons
g <- ngonGrob(unit(xy[,1],"cm") + unit(0.5,"npc"),
              unit(xy[,2],"cm") + unit(0.5,"npc"),
              n=seq_len(N)+2, gp=gpar(fill=1:N))


grid.newpage()
grid.draw(g)

Rotated and stetched polygons

g2 <- ngonGrob(unit(xy[,1],"cm") + unit(0.5,"npc"),
              unit(xy[,2],"cm") + unit(0.5,"npc"),
              n=seq_len(N)+2, ar=seq_len(N),
              phase=0, angle=pi/(seq_len(N)+2),
              size=1:N+5, gp=gpar(fill=1:N))

grid.newpage()
grid.draw(g2)

Ellipses

g3 <- ellipseGrob(unit(xy[,1],"cm") + unit(0.5,"npc"),
                  unit(xy[,2],"cm") + unit(0.5,"npc"),
                  angle=-2*seq(0,N-1)*pi/N+pi/2,
                  size=5, ar=3, gp=gpar(fill=1:N))

grid.newpage()
grid.draw(g3)