0

以下画像のようなcsvファイルからDendrite Length列とFilamentID列のデータを取り出すための関数を書いたのですが、
画像の説明をここに入力

DataandIdExtractionfromCSV <- function(path,sectionid,dataname) {
  
  df = read.csv(path, 
                     fileEncoding = "UTF-8-BOM",
                     stringsAsFactors=F,
                     na.strings="NULL",
  )
  
  df <- na.omit(df)
  # 0,1,2行目を削除
  df2<-df[c(-0,-1,-2),]
  
  
  # 最左列とFilamentIDのdatatypeを変換
  
  df2$dataname <- as.numeric(df2$dataname)
  df2$X.5 <- as.integer(df2$X.5)
  
  
  # Dendrite LengthとFilamentIDをtibble列として再定義、Header(名前)もつける
  tibbledataid = tibble(tibbledataid = df2$dataname)
  tibbledata = tibble(tibbledata = df2$X.5)
  
  # 2列を一つのtibble(行列)に統合
  df_tidy = bind_cols(tibbledataid,tibbledata)
  # 長さと対応するidだけ抽出した行列
  head(df_tidy)
  tidieddfname = paste(sectionid,"_tidy.csv", sep = "", collapse = NULL)
  write.csv(df_tidy, tidieddfname)
  
}

これを以下の様に実行すると

DataandIdExtractionfromCSV("WT1 x20 ROI1 S ctx 06212021_Statistics/Dendrite_Length.csv","tesuto",Dendrite.Length)
Error during wrapup:  置換は 0 列ですが、データは 133 列です 
Error: no more error handlers available (recursive errors?); invoking 'abort' restart

以上のようなエラーが出てしまいます。
browse()関数でエラー箇所を調べてみたところ、まず

df2$dataname <- as.numeric(df2$dataname)

以上の箇所で引っかかっていることが分かりましたが、それ以上何が原因でどうすればよいのか分かりませんでした。

有識者の方々、何卒ご教示いただけますと幸いです。

追記:画像の説明をここに入力
コード中のX.5という列名?は以下のように自動で付与されていました。

2
  • コメントありがとうございます。質問の方に貼らせていただきましたが、df2$X.5はおそらくその左の列の100000xxx系だと思われます。最大値に桁数が近いですが見たところ超えてないようです。。。 もし追加で情報が必要でしたら提供いたしますので、何卒よろしくお願いいたします。 2021年6月23日 11:02
  • すみません、列の位置を間違って捉えていました。しばらくしたら先のコメントは削除します。よろしくおねがいします。
    – user39889
    2021年6月23日 11:14

1 件の回答 1

0

問題点は df2$dataname という表記にあります。この場合、データフレーム df2dataname カラムという意味になってしまいます。なので、indirect access な表記に変更します。

  ## df2$dataname -> df2[, dataname] へ変更

  df2$dataname <- as.numeric(df2$dataname)
  =>
  df2[, dataname] <- as.numeric(df2[, dataname])

  tibbledataid = tibble(tibbledataid = df2$dataname)
  =>
  tibbledataid = tibble(tibbledataid = df2[, dataname])

また、DataandIdExtractionfromCSV 関数呼び出しの際に指定する第3引数を文字列に変更します。

  ## Dendrite.Length -> "Dendrite.Length" へ変更

  DataandIdExtractionfromCSV("...", "tesuto", Dendrite.Length)
  =>
  DataandIdExtractionfromCSV("...", "tesuto", "Dendrite.Length")

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。