1

ある国の政府および企業の利回りを含む CSV ファイルがあります。最初の行はヘッダーで、最初の列には 1 から 5900 までの期間があり、2 番目から 7 番目には政府、AAA、AA+、AA、AA-、および A 評価の利回りがあります。

仕事では、これらの曲線を毎日監視して、債券価格の固定の可能性のあるケースを検出します。これは、これらの曲線を Excel でプロットし、前日の曲線と比較してから、この情報を同じ日に取引された債券と交差させることによって行います。

Excel のグラフはあまりインタラクティブではないため、rCharts を使用してこれらの曲線をプロットし、公開したいと考えています。しかし、データをインポートしてプロットしようとすると、インタラクティブ チャートを含むファイルが重すぎて、読み込もうとするたびにブラウザーがクラッシュします。データのインポート方法に関係があると思います。コードは次のとおりです。

    file='~/R/Projects/Yields-20130705-PEN.csv'
    pip <- read.zoo(file,index.column=1,sep=',',header=T,nrows=5900)
    colnames(pip) <- c('Sovereign','AAA','AA+','AA','AA-','A')

    pip.df <- data.frame(index(pip),coredata(100*pip))
    colnames(pip.df) <- c('Duration','Sovereign','AAA','AA+','AA','AA-','A')
    pip.melt <- melt(pip.df,id.vars=1)
    colnames(pip.melt) <- c('Duration','Curves','Yields')

    n1 <- nPlot(
      Yields~Duration,
      data = pip.melt,
      group = 'Curves',
      type = "lineWithFocusChart")

    n1

rChart のいくつかの例とチュートリアルでは、私よりも多くのデータを使用し、プロットがクラッシュしませんが、データを並べ替える日付があると言わざるを得ません。先に述べたように、これらのデータは、1 から 1 にジャンプする 1 から 5900 までの日数で表されるインデックス期間を持っています。

    > dput(head(aaa))
    structure(c(0.001253432, 0.001276935, 0.001300438, 0.001323942, 
    0.001347445, 0.001370948, 0.012065501, 0.012089004, 0.012112507, 
    0.01213601, 0.012159514, 0.012183017, 0.017379049, 0.017402552, 
    0.017426055, 0.017449559, 0.017473062, 0.017496565, 0.017379049, 
    0.017402552, 0.017426055, 0.017449559, 0.017473062, 0.017496565, 
    0.018015215, 0.018038718, 0.018062222, 0.018085725, 0.018109228, 
    0.018132731, 0.026837954, 0.026861458, 0.026884961, 0.026908464, 
    0.026931967, 0.026955471), .Dim = c(6L, 6L), .Dimnames = list(NULL, c("Soberana", "AAA", "AA+", "AA", "AA-", "A")), index = 1:6, class = "zoo")
4

0 に答える 0