-1

複数のファイルを含むフォルダーがあります。各ファイルからセル (3 行目、5 列目) を選択し、それらを 1 つの列にバインドしたいと思います。ここに私がこれまでに持っているものがあります:

  fnames1 <- scan(file.choose(), what = "character", quiet = TRUE)
  print(fnames1)
  for (i in fnames1) 

  {
  date.time <- read.table(paste("...",i, sep = ""), skip = 2, nrows = 1)
  timecol <- paste(date.time[, 5])
  time <- cbind(timecol)}

しかし、すべてのセルを含む1つの行ではなく、いくつかの個別のセルを取得しています。

どんな助けでも大歓迎です！

編集: MrFlick への回答: プロンプトが表示されたら、必要なセルを抽出するフォルダー内のすべてのファイルの名前を含むファイルを選択します。これが fnames1 の由来です。時間は、すべてのセルを連結するために作成している変数です (これは明らかに機能していません)。読み取りテーブルの後にそのペーストを追加することが、ループを機能させる唯一の方法です...私はRに非常に慣れておらず、試行錯誤を繰り返してきました。

4

1 に答える 1

0

まだ完全には理解できていませんが、

fnames1 <- scan(file.choose(), what = "character", quiet = TRUE)
print(fnames1)
time <- sapply(fnames, function(fn) {
     date.time <- read.table(fn, skip = 2, nrows = 1)
     date.time[, 5]
})
print(time)

ここでは、date.time[3,5] 値を使用して適切なサイズのベクトルを自動的に作成するループでsapplyはなく、ファイル名をループするために使用します。for

于 2014-06-13T02:39:54.797 に答える