Сегмент facet_wrap в многостраничный PDF файл

Я искал решение для этого, но похоже, что большинство из них обрабатывают индивидуально созданные графики, объединенные в формате PDF, вместо того, чтобы отделять графики, созданные с использованием огранки, на отдельные страницы PDF.

Примеры данных

В приведенных выше данных, используя следующий код, выбирая все элементы в сгенерированном списке:

Ex<-read.csv("StackOverflowEx (3).csv")
library(ggplot2)
library(reshape2)
vars <- select.list(names(Ex),multiple=TRUE,graphics=TRUE)
Cases<-subset(Ex,select=vars)

gg<-melt(Cases,id=c("Item","Total","Admin"))
print(ggplot(gg, aes(x=Total,y=Admin))+
  geom_point(colour="dark green",size=1.5)+
  geom_point(aes(y=value,color=variable))+
  geom_smooth(aes(y=value,fill=variable),
              method=loess,size=1,linetype=1,se=T)+
  facet_wrap(~variable,ncol=2,nrow=1000)+
  ylim(0,1)+
  labs(x="Expected",y="Admin",title=vars))

... должен генерировать фасетную обертку всех 8 (A-H) корпусов. Однако генерация этого имеет тенденцию к сжатию графиков и делает их менее читаемыми, и на практике я намереваюсь использовать это в более 500 случаях (который просто возвращает бары с меткой с именем столбца без читаемых диаграмм).

Можно ли указать количество графиков в фасете, чтобы они отображались на отдельной странице при преобразовании в PDF, вместо того, чтобы все графики сжимались на одну страницу? Например, используя приведенные выше данные, генерируя два графика 2x2 на отдельных страницах, которые содержат все 8 случаев индивидуально (например, случаи A-D на pg 1, случаи E-H на pg 2).

Я мог бы сделать это, выделив 4 случая + "Item", "Total" и "Admin" и повторив для следующих 4 случаев и объединив полученные PDF файлы. Однако с более чем 500 случаями на практике это означало бы более 100 итераций с большим потенциалом для человеческой ошибки. Некоторая помощь в автоматизации процесса будет отличной.

Ответ 1