用rCharts绘制屈服曲线

我有一个CSV文件，其中有一个国家的政府和企业收益。第一行是标题，第一列的持续时间从1天到5900天，第二行到第七行的持续时间是政府、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

---

我和headpip密谋没有问题。是否可以将csv文件或其随机版本发布到我可以访问的地方？谢谢！！！即使当我试图用Slideify发布它时，它也会让浏览器加载很多情节，而且大多数时候它会崩溃。我也会挂起它。让我检查一下将数据保存为json文件，然后在HTML中访问它是否有效。将数据外部化有一点帮助，但绘图仍然阻塞。性能问题可能是由于NVD3，或者是由于rCharts中的朴素JS代码造成的，我必须找出原因。

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