ggplot2, как огранить отдельные графики на 2 страницах

Question

У меня есть этот код

g=ggplot(a, aes(x = TIME, y = DV,group = ID))
g + geom_point(data = a,  colour="red", size=2) +
    theme_bw() +
    geom_smooth(method = 'loess', se = FALSE,colour="black") +
    facet_wrap( ~ ID, ncol = 4,nrow = 6, scales = 'free')

Я получаю график с 6 * 4 = 24 гранями на одной странице.Как я могу разделить его на 2 страницы, с 12 отдельными участками на каждой странице?

Answer 1

Как пример:

library(tidyverse); library(ggforce)

p <- mtcars %>%
  rownames_to_column("model") %>%
  ggplot(aes(wt, mpg, label = model)) +
  geom_text(size = 2) +
  coord_cartesian(clip = "off")

p + facet_wrap_paginate(~model, nrow = 4, ncol = 4, page = 1)
p + facet_wrap_paginate(~model, nrow = 4, ncol = 4, page = 2)