一部のデータをループして多数のグラフをプロットしようとしていますが、プロット関数が for ループ内にカプセル化されているときに生成されるグラフは破損した PDF です。
ここでは最小限の例に減らしました。これにより、期待どおりに 1.pdf が生成されますが、ループ内で生成された 2.pdf および 3.pdf はわずかに小さいファイルであり、PDF リーダー ソフトウェアでは開きません。
i <- 1
pdf(paste(i,'.pdf',sep=''))
ggplot(NULL,aes(x=i, y=i)) +
geom_point() +
coord_cartesian(xlim = c(0, 10), ylim = c(0, 10)) +
ggtitle(paste('i =', i))
dev.off()
for(i in 2:3) {
pdf(paste(i,'.pdf',sep=''))
ggplot(NULL,aes(x=i, y=i)) +
geom_point() +
coord_cartesian(xlim = c(0, 10), ylim = c(0, 10)) +
ggtitle(paste('i =', i))
dev.off()
}
どうしたの？