Question

我有一个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到5900，从1跳到1。

    > 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")

用rCharts绘制产量曲线

0 个答案: