1. ホーム
  2. スクリプト・コラム
  3. その他

[解決済み] file(file, "rt") のエラー : complete.cases プログラム内の無効な 'description' 引数

2022-01-09 13:56:26

質問

私はRを使用して、ファイルのディレクトリを読み込んで、各データファイルについて完全に観察されたケースの数をカウントするという要件を実装するために、次のデータボックス、最初の列はファイル名、2列目は完全ケースの数です、例:。

id nobs
1  108
2  345
...
etc

以下のようなコードです。

complete <- function(directory, id = 1:332) {

  for(i in 1:332) {
    path<-paste(directory,"/",id,".csv",sep="")
    mydata<-read.csv(path)
    #nobs<-nrow(na.omit(mydata))
    nobs<-sum(complete.cases(mydata))
    i<-i+1
  }

  completedata<-c(id,nobs)
}

実行する

complete("specdata",id=1:332)

が、エラーになります。

Error in file(file, "rt") : invalid 'description' argument

を試したところ traceback() 関数を使用して私のコードをデバッグすると、次のような出力が得られます。

traceback()
# 4: file(file, "rt") at #6
# 3: read.table(file = file, header = header, sep = sep, quote = quote, 
#    dec = dec, fill = fill, comment.char = comment.char, ...) at #6
# 2: read.csv(path) at #6
# 1: complete("specdata", id = 1:332)

解決方法は?

完全に再現できる例がないと何とも言えませんが、あなたの問題はこの行にあるのではないでしょうか。

path<-paste(directory,"/",id,".csv",sep="")

id はベクトルなので、pathは文字列のベクトルになり、それを使って read.csv の場合、1つのパスではなく、すべてのパスを一度に渡しています。上の行を次のように変更してみてください。

path<-paste(directory,"/",id[i],".csv",sep="")

を実行し、それがうまくいくかどうかを確認します。