不断收到警告消息：参数不是数字或逻辑：返回NA

Question

我相信我已经适当地读取了文件，但是，在计算均值时，我收到一条警告消息，表示我的均值函数中的参数不是数字。但是，当我访问文件时，它们显然是数字类。我还删除了所有NA，以计算均值。我一直在到处寻找可能的解决方案，但尚未找到任何解决方案。任何帮助将不胜感激。

这是我的代码：

pollutantmean <- function(specdata, pollutant, id=1:332) {

    ## set up the directory
    specdata <- setwd("~/Programming Exercise/specdata")

    ## read the files
    listfile <- dir(pattern = "*.csv")
    for (i in 1:length(listfile)) {
            temp[[i]] <- read.csv(listfile[i], header=TRUE)
    }

    ## calculate the mean function
    pollutant <- if(pollutant=="nitrate") {
            mean(temp[["nitrate"]], na.rm=TRUE)
    } else {
            mean(temp[["sulfate"]], na.rm=TRUE)
    }
}