私はこれに対する解決策を探しましたが、ファセットを使用して生成されたプロットを 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 つの (AH) ケースすべてのファセット ラップを生成する必要があります。ただし、これを生成すると、プロットが窮屈になり、読みにくくなる傾向があります。実際には、これを 500 以上のケースで使用する予定です (列名でラベル付けされたバーを返し、読み取り可能なチャートはありません)。
すべてのプロットを 1 ページに圧縮するのではなく、PDF に変換するときに個々のページに表示されるファセット内のチャートの数を指定することはできますか? たとえば、上記のデータを使用して、8 つのケースすべてを個別に含む 2 つの 2x2 プロットを別々のページに生成します (つまり、ページ 1 にケース AD、ページ 2 にケース EH)。
これを行うには、4 つのケース + 「アイテム」、「合計」、および「管理者」を強調表示し、次の 4 つのケースを繰り返し、結果の PDF を結合します。ただし、実際には 500 以上のケースがあるため、これは 100 以上の反復を意味し、多くの人的エラーの可能性があります。プロセスを自動化するためのいくつかの助けは素晴らしいでしょう.