R每页多个图混合图和ggplot

library(ggplot2)

# 创建一个包含多个图形的页面
multiplot <- function(..., plotlist=NULL, cols) {
  require(grid)

  # 将输入的图形列表转换为矩阵
  plots <- c(list(...), plotlist)
  numPlots = length(plots)

  # 如果未指定列数，则默认为每行最多4个图形
  if (is.null(cols)) {
    cols = min(numPlots, 4)
  }

  # 计算行数
  rows = ceiling(numPlots/cols)

  # 创建一个新的页面，并设置布局
  grid.newpage()
  pushViewport(viewport(layout=grid.layout(rows, cols)))

  # 绘制每个图形
  for (i in 1:numPlots) {
    # 获取当前图形的位置
    row = ceiling(i/cols)
    col = (i-1) %% cols + 1

    # 设置当前图形的位置
    pushViewport(viewport(layout.pos.row=row, layout.pos.col=col))

    # 绘制当前图形
    print(plots[[i]], newpage=FALSE)

    # 退出当前图形的位置设置
    popViewport()
  }

  # 退出页面布局设置
  popViewport()
}

# 创建多个图形
plot1 <- ggplot(mtcars, aes(x=mpg, y=disp)) + geom_point()
plot2 <- ggplot(mtcars, aes(x=mpg, y=hp)) + geom_point()
plot3 <- ggplot(mtcars, aes(x=mpg, y=wt)) + geom_point()

# 绘制每页多个图混合图
multiplot(plot1, plot2, plot3, cols=2)