0
나는 744 레이어를 가진 래스터 스택 s을 가지고 있습니다. 이 중 744, 나는 층 18 ~ 24 (즉, 18 층에서 6 층)와 18 층에서 24 층 (즉, 42 ~ 48 층)의 간격으로 다음 스택을 새로 만들 필요가있다. 그래서 나는 스택의 끝까지 도달 할 때까지 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]]])
}
그러나 나는 이것을 알고 싶어합니다. 더 깨끗하고 더 좋은 방법이 있습니다.