Question

我正在尝试创建一个代码块，该代码块将遍历文件夹（C：/ stockHistoryYear /）中的每个文件，获取股票收益值，创建直方图，并保存每个文件的直方图但是，我使用的代码返回错误

文件错误（文件，“ rt”）：无法打开连接

我是R的新手，我的大部分信息来自随机Youtube视频和此网站。我很乐意为您提供任何帮助，以及您可能拥有的其他知识

我当前的代码：

for (i in 1:length(files)) {
 data <- read.csv(files[i])
 prices <- data[, "Adj.Close"]
 n <- NROW (prices)
 ret <- ((prices[2:n]-prices[1:(n-1)])/prices[1:(n-1)])
 names(ret) <- data[2:n, "Date"]
 picname <- c(toString(files[i]),'.png')
 toString(picname)
 png(picname)
 hist(ret, col = "blue", lwd = 2, ylab = "Frequency", xlab = "Stock Return", 
 main = i)
 dev.off() 
}

执行traceback（）导致：

3: file(file, "rt")
2: read.table(file = file, header = header, sep = sep, quote = quote, 
       dec = dec, fill = fill, comment.char = comment.char, ...)
1: read.csv(files[i])

循环创建并保存直方图，从而导致错误

0 个答案: