※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

グラフィックデバイスでループを使うときにはprint関数が必要とのこと


library(lattice)

pdf("recruit2noaa_sst.pdf")
for(i in 7:83){
print(xyplot(recruit~d3[[i]]|factor(zyunban,labels=c(10:12,1:9)),
data=d3, xlab=paste("g",i-6,seq="") ,ylab="rec",type="p",
layout=c(3, 4),ylim=c(0,17),pch=19,col=4,
scales = list(x = list(relation = "free"))))
}
dev.off()
|