我将循环中的几个图保存到 png 文件中。这很好用,只要我关闭 R。只要我在 RStudio 中,所有文件的大小都是 0 Kb 并且无法打开,因为它们已经被另一个程序使用。这是为什么?我忘记编码了吗?
这是我的循环:
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)
png(file=paste(SaveToDirectory,BasketVariables[i,1],".png",sep=""))
plot(VariableXTS, main=BasketVariables[i,1])
dev.off
}
}