R：警告：私の関数を使用しようとするとNAを取得する

Question

私はプログラミングの初心者であり、指定されたモニターのリスト全体の汚染物質（硝酸塩または硫酸塩）の平均を計算する関数をRで作成しようとしています各モニタは "specdata"というフォルダに独自の.csvファイルがあります）。私は次の関数を構築している：

pollutantmean <- function(directory="specdata", pollutant="sulfate", id=1:332) 
{ 
    files_f<-list.files(directory,full.names=TRUE) 
    d <- data.frame() 

    for(i in 1:332){ 
     d <- rbind(d,read.csv(files_f[i])) 
    } 
    if(pollutant=="sulfate"){ 
     mean(d$Sulfate[which(d$ID==id)], na.rm=TRUE) 
    } 
    else{ 
     mean(d$Nitrate[which(d$ID==id)], na.rm=TRUE) 
    } 
} 

をそして私はとの機能をテストしてみました：私は、次のエラーを取得する pollutantmean(directory="specdata",pollutant="sulfate", id=1:10)

：

[1] NA Warning messages: 
1: In d$ID == id : 
longer object length is not a multiple of shorter object length 
2: In mean.default(d$Sulfate[which(d$ID == id)], na.rm = TRUE) : 
argument is not numeric or logical: returning NA 

これは何を意味するのでしょうか？私はコードを何度も繰り返してきましたが、問題の内容を特定することはできません。

ありがとうございます。

Answer 1

ここで私はコメントに提案を実装し、コードを短縮し、他の汚染物質を調査したい場合に備えて関数を一般化していると思います。（これらはcsvのものと同じです総額）：

pollutantmean <- function(directory="specdata", 
           pollutant="Sulfate", 
           id=1:332){ 
     files_f <- list.files(directory,full.names=TRUE) 
     d <- do.call(rbind, lapply(files_f, read.csv, stringsAsFactors=FALSE)) 
     mean(d[[pollutant]][which(d$ID %in% id)], na.rm=TRUE) 
    } 

希望働き、汚染物質のモニタリング