1つの行列から複数のマルチラインプロットを作成する

Question

matplot関数とapply関数を組み合わせて行列のn列ごとに新しいプロットを生成する方法があるのだろうかと思います。

私は現在、1350行と640列のマトリックスを持っています。私はmatplot使用して、すべての8列のすべての行の値をプロットしています：

png("cmpd1.png") 
matplot(data[,1:8], type="l", y-lab="z-score", axes = F) 
axis(side=2) 
dev.off() 

が、私はこのビットを自動化したいと列の値がで変更するPNGに8により各ループとラベルをシフトしています1。 誰かが経路を教えてもらえますか？

Answer 1

私はlapply()とのバージョンがあると思いますが、ループはここでも

for(i in seq(1,ncol(data),8)){ 
    png(paste0("cmpd",i,".png")) 
    matplot(data[,i:(i+7)], type="l", ylab="z-score", axes = F) 
    axis(side=2) 
    dev.off() 
} 

Answer 2

を仕事をしていませんvapply()と答えてフォーマットプロット名です。閉じたデバイスIDが返されます。

data <- matrix(rnorm(100*128),nrow = 100,ncol = 128) 
vapply(seq(from=1,to=ncol(data)-8,by=8), 
    FUN = function (x) { 
    png(paste0("cmpd",formatC(width = 3, format = "d", flag="0", x=x%/%8),".png")) 
    matplot(data[,x:(x+8)], type="l", ylab="z-score", axes = F) 
    invisible(dev.off()) 
    }, 
    FUN.VALUE=integer(1) 
)