CSV ファイルから読み取った多数の保存済み在庫データをプロットしたいと考えています。基本的に BasketName は、必要なすべての株式タイトルが保存される Textfile を定義します (私のプログラムでは、株式タイトルは変数として参照されます)。
#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
ここで、このバスケット内の各株式 (変数) の csv ファイルを read.table で個別に読み取り、プロットを作成してディスクに保存します。ただし、保存部分全体にコメントを付けて、プロットが機能するかどうかを確認したい場合、何も起こりません...しかし、xts 変数は正しく表示され、すべての日付が設定されます。土日祝日などで間に合わない日程があるかもしれませんが、問題ないでしょうか?しかし、プログラムはエラーを表示せず、何もプロットしません。別のパッケージの ChartSeries() で実行しようとしましたが、次のエラーが表示されます。
Error in try.xts(x, error = "chartSeries requires an xtsible object") :
chartSeries requires an xtsible object
何か案が?