0
私はラスタスタックsに744のレイヤを持っています。このうち744、層18〜24（すなわち18層から6層）、次に18層から24層（すなわち42〜48）のギャップで次の6層の新スタックS1を作成する必要があります。だから私はスタックの終わりに達するまで24のギャップで6つのレイヤーを選んでいく必要があります。それでは、私が行っているのは、次のとおりです。定義された間隔からラスタスタックレイヤを選択する
x<-data.frame(seq(18, 744, by = 24))
x$v2<-seq(24, 744, by = 24)
S1<-stack(s[[x[1,1]:x[1,2]]])
for(i in 2:nrow(x)){
S1<-stack(S1,s[[x[i,1]:x[i,2]]])
}
しかし、私はクリーンでこれを行うには良い方法があるかどうかを知りたいです。