r - Coursera 空气污染作业

Question

使用 Mac 操作系统 10.10.3RStudio 版本 0.98.1103

我的工作目录是一个包含 332 个 .csv 文件的列表，我的设置是正确的。这是代码:

pollutantmean <- function(directory, pollutant, id = 1:332) {
  all_files <- list.files(directory, full.names = T)
  dat <- data.frame()
  for(i in id) {
    dat <- rbind(dat, read.csv(all_files[i]))
  }
  ds <- (dat[, pollutant], na.rm = TRUE)
  mean(ds[, pollutant])
}

作业的一部分是获取污染物前 10 个数值的平均值。为此，我使用了调用函数(其中“spectata”是包含 332 个 .csv 文件的目录):

pollutantmean(specdata, "Nitrate", 1:10)

我得到的错误信息是:

**Error in file(file, "rt") : cannot open the connection

** In addition: Warning message: In file(file, "rt") : cannot open file 'NA': No such file or directory

像许多在这里提出问题的学生一样，我是编程和 R 的新手，在调用我的函数时距离得到任何结果还很遥远。在 stack overflow 中有很多关于这个 coursera 作业的问题和答案，但我对这些交流的审查并没有解决我代码中的错误。

有人建议如何修复该错误吗？

Answer 1

除了其他答案之外，您还可以试试这个:

all_files <- list.files(directory, pattern="*.csv", full.names = TRUE)

避免选择任何其他类型的文件。

甚至这个奇怪的

all_files <- paste(directory, "\\", sprintf("%03d", id), ".csv", sep="")