0

親愛なる R コミュニティの皆さん！

次のような株価のデータフレームがあります。

                   1          2          3       ...   N
                 EADS      Daimler    BOEING
01.01.2012        5,2        6,7         52
02.01.2012        5,4        6,5         51,8
    .              .          .           .
    .              .          .           .
    .              .          .           .
31.12.2012        7,4        4,8         71

s.thを作成したいと思います。各エントリでプロットが2行を比較している「プロットマトリックス」のように。この NxN プロットのそれぞれには、x 軸に日付、y 軸に株価があります。アイデアは、各ストック値を他のストック値と 1 つずつ比較できるようにすることです。これで、相関関係を把握できます。

このコマンドを使用して、必要なものを (多かれ少なかれ) 達成できます。

# hdMn is a matrix containing the normalized entries of the dataframe

windows(title="Comparison CHART (normalized data)")
par(mfrow=c(dim(hdMn)[2],dim(hd)[2])

for (i in 1:dim(hdMn)[2])
{
for (j in 1:dim(hdMn)[2])
{
    plot(x=1:dim(hdMn)[1],y=hdMn[1:dim(hdMn)[1],i],col="red",main=paste("comparison"
  + , names(historicalData)[i],"and", names(historicalData)[j]),xlab="working 
  + days",ylab="stock value [Euro]",type="l")
    lines(x=1:dim(hdMn)[1],y=hdMn[1:dim(hdMn)[1],j],col=(if(i==j)"red" 
  + else"green"),type="l")
}
}

ここで結果を見ることができます。

https://docs.google.com/file/d/0B88TpEM5dcSdaTRTVXk4aVdCQmM/edit?usp=sharing

この結果では、すべてのプロットに独自のタイトルがあるのは好きではありません。これは多くのスペースを必要とし、あまり良くありません。代わりに、私の手描きのようにしたいと思います。

https://docs.google.com/file/d/0B88TpEM5dcSdNGJnaWd4WmlhdGM/edit?usp=sharing

何か案は ？

4

1 に答える 1