ggforce 패키지를 사용해서 여러 페이지가 있는 PDF 파일 만들기.

ggforce-multiple-page.R

library(tidyverse)
library(ggforce)

# 함수 정의 ----

plot_multiple <- function(page_num) {
  Theoph %>% 
    ggplot(aes(Time, conc)) +
    geom_point() +
    geom_line(alpha = 0.1) +
    ggforce::facet_wrap_paginate(~Subject, ncol = 2, nrow = 2, page = page_num)
}

# pdf 만들기 ----

pdf('ggforce-multiple-pdf.pdf')
plot_multiple(1)
plot_multiple(2)
plot_multiple(3)
dev.off()