Есть ли способ записать одноканальный растр из нескольких растровых стеков

У меня есть 4 подпапки, содержащие 5 растров с непрерывными значениями. Итак, создайте цикл с функцией for:

1. перечислить эти растровые файлы
2. складывать эти файлы в папку, т. е. 4 объекта растровых стека (которые содержат 5 растров)
3. Я применил порог, чтобы преобразовать непрерывный растр в двоичный растр
4. Наконец, я написал двоичный растр, используя функцию wirte.raster.

Моя проблема находится на этапе 4. Несмотря на то, что я использую аргумент «byLayer = T» в функции writeRaster, сохраненные растры представляли собой растровый стек с 5 бинарными растрами. И я хочу писать его для каждого растра, для каждого файла, для каждого канала

Я очень благодарен, если кто-нибудь поделится со мной своими мыслями

setwd("Vole_raw_mean_Present/")

sub <- list.dirs(full.names=FALSE, recursive=FALSE)

for(j in 1:length(sub)) {
  print(sub[j])

  h <- list.files(path=sub[j], recursive=TRUE, full.names=TRUE,  pattern='.tif')
  print(h)

  stack_present <- stack(h)
  print(stack_present)

  binary_0.2 <- stack_present >=0.2

  writeRaster(binary_0.2, filename=paste0(sub[j], bylayer = T, suffix = "_bin.tif"), overwrite=TRUE)

}