ループは機能外で動作しますが、機能では機能しません。

Question

これで何時間も移動していました。私の最初の質問はR.にオンラインですループを含む関数を作成しようとしています。この関数は、ユーザーがpollutantmean（4：6）のように提出したベクトルを受け取り、次にcsvファイルを（前述のディレクトリに）ロードしてバインドします。私が変数idを割り当てて、関数を使わずにループを実行すると、うまくいきます。ユーザーがidベクトルを与えることができるように関数の中に入れると、何もしません。助けてもらえますか？ありがとうございました！！！

pollutantmean<-function(id=1:332) 
     { 
     #read files 
     allfiles<-data.frame() 
     id<-str_pad(id,3,pad = "0") 
     direct<-"/Users/ped/Documents/LearningR/" 
       for (i in id) { 
       path<-paste(direct,"/",i,".csv",sep="") 
       file<-read.csv(path) 
       allfiles<-rbind(allfiles,file) 
          } 
     } 

Answer 1

機能に戻り値がありません。 （@Roland）

pollutantmean<-function(id=1:332) { 
    #read files 
    allfiles<-data.frame() 
    id<-str_pad(id,3,pad = "0") 
    direct<-"/Users/ped/Documents/LearningR/" 
      for (i in id) { 
      path<-paste(direct,"/",i,".csv",sep="") 
      file<-read.csv(path) 
      allfiles<-rbind(allfiles,file) 
         } 
return(allfiles) 
    } 

編集： あなたの間違いは、あなたが関数から抜け出すために何をしたいあなたの関数に指定していないということでした。 Rでは、関数の内部にオブジェクトを作成し（別の環境と考えることができます）、次に返すオブジェクトを指定します。

私の答えを受け入れることについて私のコメントでは、私はthisを意味しました：（...答えを受け入れるとマークするには、答えの横のチェックマークをクリックして、

Answer 2

は、関数のreturnている最後の行必要はありませんでもlapplyとdo.call考えてみましょう：

pollutantmean <- function(id=1:332) {  
    id <- str_pad(id,3,pad = "0") 
    direct_files <- paste0("/Users/ped/Documents/LearningR/", id, ".csv") 

    # READ FILES INTO LIST AND ROW BIND 
    allfiles <- do.call(rbind, lapply(direct_files, read.csv)) 
} 

Answer 3

[OK]を、私はそれを得ました。私は実際に作成され、Rの環境で表示されるように構築されているファイルを期待していた。しかし、何らかの理由でそれらは表示されません。しかし、Rはまだすべての計算を行います。返信をありがとう!!!!

pollutantmean<-function(directory,pollutant,id) 
{ 
    #read files 
    allfiles<-data.frame() 
    id2<-str_pad(id,3,pad = "0") 
    direct<-paste("/Users/pedroalbuquerque/Documents/Learning R/",directory,sep="") 
    for (i in id2) { 
    path<-paste(direct,"/",i,".csv",sep="") 
    file<-read.csv(path) 
    allfiles<-rbind(allfiles,file) 
    } 
#averaging polutants 
mean(allfiles[,pollutant],na.rm = TRUE) 
} 

pollutantmean("specdata","nitrate",23:35)