アクティブベースのRグラフィックスデバイス内の前のサブプロットに要素を追加しますか？

Question

リストでdataの9つのデータグループを生成し、それぞれループをforとプロットするとします。私はここでも*applyを使うことができます。

data = list() 
layout(mat = matrix(1:9, nrow = 3)) 
for(i in 1:9){ 
    data[[i]] = rnorm(n = 100, mean = i, sd = 1) 
    plot(data[[i]]) 
} 

すべてのデータを作成した後、私は最高である1を決めたい：

best_data = which.min(sapply(data, sd)) 

今私は、プロット上で最高のデータがそれを区別することを強調表示します。アクティブデバイスの指定されたサブプロットに戻り、要素（たぶんタイトル）を追加できるプロット関数がありますか？

は、私が二forループを作ることができる知っている：for loop 1は、その後、私はfor loop 2は、プロットを作成し、その後、最適な評価データを生成し、これはあまり効率的で、より詳細なようです。

このようなプロット関数がベースRグラフィックスに存在しますか？

Answer 1

@ rawrの回答は簡単で簡単です。しかし、私はあなたがプロットする前に "ベスト"データセットを選択することを可能にする別のオプションを指摘したいと思いました。例えば

：

# Create the data 
data = lapply(1:9, function(i) rnorm(n = 100, mean = i, sd = 1)) 

par(mar=c(4,4,1,1)) 
layout(mat = matrix(1:9, nrow = 3)) 

rng = range(data)  

# Plot each data frame 
lapply(1:9, function(i) { 

    # Select data frame with lowest SD 
    best = which.min(sapply(data, sd)) 

    # Highlight data frame with lowest SD by coloring points red 
    plot(data[[i]], col=ifelse(best==i,"red","black"), pch=ifelse(best==i, 3, 1), ylim=rng) 

})