R4.1.0，Windows 10，文件错误文件，“rt”：无法打开文件“001.csv”：没有那个文件或目录

如何解决R4.1.0，Windows 10，文件错误文件，“rt”：无法打开文件“001.csv”：没有那个文件或目录

我正在做课堂作业。目标是编写一个函数，该函数读取子目录（名为“specdata”）中的所有文件，并返回所选列（污染物）中数据的平均值。

这是我写的：

pollutantmean <- function (directory,pollutant,id=1:332){
  file_list <- list.files ("specdata")
 main_data <- data.frame()
  for (i in id) {
  main_data <- rbind (main_data,read.csv(file_list[i]))
  }
  result <- mean(main_data[,pollutant])
  return(result)
   }
pollutantmean("specdata","sulfate",1:332)

我遇到了一个错误：

Error in file(file,"rt") : cannot open the connection
In addition: Warning message:
In file(file,"rt") : cannot open file '001.csv': No such file or directory

我已经检查了当前的工作目录：

getwd()
[1] "C:/Users/pl6z7/Desktop/Coursera"

子目录中肯定有名为“specdata”的文件。

list.files("specdata")
  [1] "001.csv"     "002.csv"     "003.csv"     "004.csv"     "005.csv"     "006.csv"    
  [7] "007.csv"     "008.csv"     "009.csv"     "010.csv"     "011.csv"     "012.csv"    
 [13] "013.csv"     "014.csv"     "015.csv"     "016.csv"     "017.csv"     "018.csv"    
 [19] "019.csv"     "020.csv"    ...

我可以通过使用 file.choose() 并手动选择文件来打开文件。

read.csv(file.choose())
         Date sulfate nitrate ID
1    1/1/2003      NA      NA  1
2    1/2/2003      NA      NA  1
3    1/3/2003      NA      NA  1
4    1/4/2003      NA      NA  1
5    1/5/2003      NA      NA  1
6    1/6/2003      NA      NA  1
7    1/7/2003      NA      NA  1
....

这里有什么问题？预先感谢您的帮助。