Как извлечь растры с одинаковой степенью из списка растров в R

Question

У меня есть объект списка, состоящий из растров, и в нем есть два типа растров с точки зрения их протяженности. Как я могу извлечь те с той же степенью и сохранить их как новый список в R? Невозможно привести воспроизводимый пример, но приведенный ниже код может помочь вам понять вопрос.

Гипотетический пример:

library(raster)
list_raster # Suppose this is a list having 48 rasters.
names(list_raster) <- paste0("raster", seq(1:48)) # Assigning names makes it possible to use the dollar sign.
lapply(list_raster, extent) # Gives 48 results but only two unique raster extents.
#  I would like to know which of the rasters has == extent(list_rasters$raster1)

Answer 1

Вы можете использовать sapply:

same_as_r1 <- sapply(list_raster, function(x) extent(x) == extent(list_raster$raster1))

и подмать свой список этим:

group1 <- list_raster[same_as_r1]
group2 <- list_raster[!same_as_r1]