Coursera空气污染作业

使用Mac操作系统10.10.3 RStudio 版本 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 个数值的平均值。为此，我使用了 call 函数（其中“spectata”是包含 332 个 .csv 文件的目录）：

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

我收到的错误消息是：

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

** 另外：警告消息：在文件（文件，“rt”）中：无法打开文件“NA”：没有这样的文件或目录

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

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

除了其他答案之外，您还可以尝试以下方法：

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

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

甚至这个奇怪的

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