如何基于特定模式从栅格列表筛选图层生成新栅格列表？

我拥有一个包含多个图层的栅格列表，请问如何基于特定模式从该列表中筛选图层，以生成一个新的栅格列表？注意：原栅格列表不可被修改。

可复现代码 #

## Create the list of rasters
year <- seq(2021, 2040)
variables <- c("A", "B", "C", "D", "E", "F")

raster_list <- list()

for (i in variables) {
  
  x <- terra::rast(nrows = 258, ncols = 600, 
                   xmin = -172, xmax = -22, ymin = 12, ymax = 76.5, 
                   resolution = 0.25, 
                   crs = "+proj=longlat +datum=WGS84 +no_defs +type=crs")
  
  terra::values(x) <- 1:terra::ncell(x)
  test <- terra::rast(replicate(length(year), x))
  names(test) <- paste0("year_", year)
  raster_list[[i]] <- test
}

原列表结构说明 #

原列表的每个元素对应一个变量（A-F），每个元素是包含20个图层的SpatRaster，图层名称为year_2021到year_2040。以下是几种常见筛选场景的实现方法：

筛选方法 #

场景1：按年份筛选，提取所有变量的指定年份图层 #

提取所有变量的year_2025图层，生成新列表：

# 筛选单个年份
target_year <- "year_2025"
filtered_list_year <- lapply(raster_list, function(r) r[[target_year]])

# 筛选多个年份（如2021-2023）
target_years <- paste0("year_", 2021:2023)
filtered_list_years <- lapply(raster_list, function(r) r[[target_years]])

场景2：按变量筛选，提取指定变量的所有年份图层 #

提取变量A和C的所有年份图层，生成新列表：

# 筛选单个变量
target_var <- "A"
filtered_list_var <- raster_list[target_var]

# 筛选多个变量
target_vars <- c("A", "C")
filtered_list_vars <- raster_list[target_vars]

场景3：按正则表达式模式灵活筛选 #

匹配所有202x年的图层，生成新列表：

pattern <- "^year_202"
filtered_list_pattern <- lapply(raster_list, function(r) {
  matching_layers <- grep(pattern, names(r), value = TRUE)
  r[[matching_layers]]
})

验证筛选结果 #

通过查看新列表的结构确认筛选是否正确：

# 查看单个筛选结果的详细信息
print(filtered_list_year$A)

内容的提问来源于stack exchange，提问作者Pierre Levoisin