バッチ内のループのインクリメント

Question

私は、私が働いているループ関数を手伝ってくれる人がいたらと思っていました。私はGoogleとStack Overflowを広範囲に検索しようとしましたが、正確な検索用語がわからないので、私はいくつかの結果を見逃してしまうのではないかと心配しています。そのことを念頭に置いて、私はこの質問が既に尋ねられている場合は事前にお詫びしますが、誰かが私に解決策の正しい方向を教えてくれることを願っています。マイデータ

について

私はNASAs MODIS衛星からのファイルの1000をダウンロードしました。私の研究領域は広い領域をカバーしているため、6タイルの領域にデータをダウンロードしなければなりませんでした。その結果、ダウンロードしたファイルのリストは実際には6つのグループにまとめられています（エクスプローラ内のファイルのリストとして表示されていますが）。

私はいくつかの初期処理を行うためにいくつかの単純なforループを書いています（以下の例では、タイルを再サンプリングして、raster :: mosaicを使って一緒に縫い合わせることができます）個別に、この段階で、私は私のニーズに完璧にするために、次のループを発見した：

resampled.raster<-list() 

for (l in 1:24){ 
    cat(l,"\n") 
    resampled.raster[[l]]<-resample(rst[[l]], s, method="ngb") 
} 

問題

を私の処理の次の段階は、6のグループにラスタをモザイクするために私を必要とし、 6の次のバッチに移動する前に。たとえば、私が24個のファイルのリストでは、最初の6個はファイルの集合として処理し、次にリストに保存してから次の6個に移動する必要があります。これを4回繰り返した後（合計24個のファイルを作成する）、ループを停止します。

私がインターネットを検索して見つけた最も近い解決策はhereですが、これは私の問題の解決策ではありません。

R内でforループを使用すると、この 'バッチ'処理が可能ですか？事前に多くのお手伝いをありがとうございます。

Answer 1

最初に、resampleとmosaicを使用することはほぼ間違っていることに注意してください。これらがタイルの場合は、mergeをマージする必要があります。

グループ化する必要があるファイルの名前には、何かユニークなものがありますか？それがあなたが使用する必要があるものです。

グループ

for (u in uc) { 
    files <- ff[u == code] 
    r <- lapply(files, raster) 
    r$filename <- paste0("merged/", u, ".tif") 
    m <- do.call(merge, r) 
} 

以上のユニークなグループ

code <- gsub('file', '', ff) 
code <- substr(code, 1, 1) 
uc <- unique(code) 

ループを取得ここで、ファイル名

# ff <- list.files() 

のベクトルおもちゃの例

ff <- c('fileA1', 'fileA2', 'fileB1', 'fileB2') 

を取得