r - colwise を使用した密度プロット - 行ごとに異なる色?

Question

それぞれ別の色の異なる密度線のプロットが必要です。これは、組み込みの data.fame を使用したサンプル コード (ただし、はるかに小さい) ですUSArrests。使用しても大丈夫ですか？

colors <- heat.colors(3)  
plot(density(USArrests[,2], bw=1, kernel="epanechnikov", na.rm=TRUE),col=colors[1])     
lines1E <- function(x)lines(density(x,bw=1,kernel="epanechnikov",na.rm=TRUE))    
lines1EUSA <- colwise(lines1E)(USArrests[,3:4])`  

現在、コードはcolwise()1 色のみで生成されます。各行を別の色で取得するにはどうすればよいですか? または、異なる色でいくつかの密度線をプロットするより良い方法はありますか?

Answer 1

私はあなたの例にはあまり従わないので、独自のサンプル データ セットを作成しました。まず、3 つの列を持つ行列を作成します。

m = matrix(rnorm(60), ncol=3)

次に、最初の列の密度をプロットします。

plot(density(m[,1]), col=2)

lines1E関数をテンプレートとして使用する:

lines1E = function(x) {lines(density(x))}

複数の曲線をプロットに追加できます。

colwise(lines1E)(as.data.frame(m[ ,2:3]))

---

個人的には、次のように使用します。

##Added in NA for illustration
m = matrix(rnorm(60), ncol=3)
m[1,] = NA
plot(density(m[,1], na.rm=T))
sapply(2:ncol(m), function(i) lines(density(m[,i], na.rm=T), col=i))

取得するため：