0

我想绘制大量从 CSV 文件中读取的存储库存数据。基本上 BasketName 定义了一个文本文件，其中保存了所有必需的股票标题（股票标题在我的程序中被称为变量）。

#Goes through all variables in a basket and saves the resulting plots to the specified directory as jpeg files
plotBasketAndSaveToDirectory<-function(BasketName, SaveToDirectory){
    BasketVariables <- readVariablesFromBasket(BasketName)

    for(i in 1:nrow(BasketVariables)){
      VariableCSV<-read.table(getVariableCSVPath(BasketVariables[i,1]),header=TRUE,stringsAsFactors=FALSE,sep=",")
      VariableCSV$Date<-as.Date(as.character(VariableCSV$Date), format="%Y/%m/%d")
      VariableXTS<-xts(VariableCSV$Close, order.by=VariableCSV$Date)
      #jpeg(filename=paste(SaveToDirectory,BasketVariables[1,1],".jpeg",sep=""))
      plot(VariableXTS)
      #dev.off
    }
}

我的函数 getVariableCSVPath 返回此篮子中股票标题的正确路径。

CSV 文件由以下标题构成：

Date High Low Open Close Volume

现在我想用 read.table 单独读取这个篮子中每只股票（变量）的 csv 文件，并创建一个图并将其保存到光盘上。但是，如果我评论整个保存部分并希望查看该图以检查它是否有效，则不会发生任何事情……但是我的 xts 变量已正确显示，所有日期都已设置。由于周末和节假日，可能会缺少一些日期，但这应该不是问题，对吧？但是该程序没有显示任何错误，它只是没有绘制任何东西。我试图用另一个包中的 ChartSeries() 运行它，它显示了这个错误：

Error in try.xts(x, error = "chartSeries requires an xtsible object") : 
  chartSeries requires an xtsible object

任何想法？

4

1 回答 1

0

如果 VariableXTS 是一个 xts 对象，我不相信你正确地调用它。

检查 xts 包参考手册的第 11 页，因为它有半页关于绘制 xts 对象： http ://cran.r-project.org/web/packages/xts/vignettes/xts.pdf

看来您必须明确定义轴

于 2013-07-03T13:46:28.503 回答