从定义的间隔中选择栅格堆栈图层

Question

我有一个光栅堆栈s，有 744 层。其中 744 个，我需要使用第 18 层到第 24 层（即 18 层中的 6 层）创建新的堆栈 S1，然后在第 18 层中的 24 层（即 42 到 48 层）之间创建下 6 层。所以我需要继续以 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]]])
}

但是，我想知道是否有更清洁和更好的方法来做到这一点。

Answer 1

你可以的

i <- rep(18:24, 31) + rep(0:30, each=7) * 24
S2 <- S1[[i]]