如何在R中使用for循环将多个栅格裁剪到相同的程度？

install.packages("raster")
install.packages("rgdal")

library(raster)
raster1 <- raster("raster1.tif")
raster2 <- raster("raster2.tif")

target_extent <- extent(raster1)

cropped_rasters <- list()  # 创建一个空列表，用于存储裁剪后的栅格数据

for (i in 1:2) {
  raster <- get(paste0("raster", i))  # 获取栅格数据
  cropped_raster <- crop(raster, target_extent)  # 裁剪栅格数据
  cropped_rasters[[i]] <- cropped_raster  # 将裁剪后的栅格数据添加到列表中
}

for (i in 1:2) {
  writeRaster(cropped_rasters[[i]], filename = paste0("cropped_raster", i, ".tif"), format = "GTiff")
}