ggplot2 一页多图排版的简便方法

前文链接

---

title: ‘ggplot2 一页多图排版的简便方法’
output: html_document

knitr::opts_chunk$set(echo = F, message = F)
library(tidyverse, warn.conflicts = F, quietly = T)

x = 1:100
y = function(x = 1:100){
  for (i in 1:length(x)){
    return(x**100)
  }
}
df = data.frame(x = x,y = y())
p = c()

for (i in 1:10) {
  p[[i]] = df[1:(i*10),] %>% 
    ggplot(aes(x = x,y = y)) +
    geom_point()
}

p %>% length() # 十个子列表
p[[i]] %>% length() # 每个子列表里各有九个用于绘图的属性
10 %>% sqrt() %>% trunc() # 十个图可设置为三列展示

gridExtra::grid.arrange(
  p[[1]], p[[2]], p[[3]], p[[4]], p[[5]], p[[6]], p[[7]], p[[8]], p[[9]], p[[10]]
)