ループ内のRの1つのプロットに複数のグラフをプロットする

Question

Rのforループにある1つのプロットにいくつかの曲線をプロットし、pngとして保存したいとします。 これをpar（new = False）で実行すると、軸は太字になります。これはカーブごとにレンダリングされるため、最初のプロット以外はすべて軸をオフにしますが、これは非常に控えめな解決策のようです。

もっとRに似たやり方がありますか？ ここで今まで私のコードの全てれる：

x<-matrix(rnorm(20000,5,3), nrow=200, ncol=100) 
y<-matrix(0, nrow=200, ncol=100) 

for (i in 1:200) { 
    for (j in 1:100) { 
    y[i,j] <- mean(x[i,1:j]) 
    } 
} 

png(filename="./a1.png") 

#here is the ugly bit 
plot(1:100,y[1,1:100],type="l", ylim=range(c(10,0))) 
par(new = TRUE) 
for (j in 2:200) { 
    plot(1:100,y[j,1:100],type="l", ylim=range(c(10,0)), xaxt='n', yaxt='n', ann=FALSE) 
    par(new = TRUE) 
} 

graphics.off() 

Answer 1

plot(1:100, y[1,1:100], type="l", ylim=range(c(10,0))) 
for (j in 2:200) lines(1:100, y[j,1:100]) 

又は、

matplot(1:100, t(y[,1:100]), t="l", lty=1, ylim=range(c(10,0)))