以矢量文件裁剪栅格 library(terra) library(tidyverse) library(raster) # 设置文件路径 raster_path <- "F:/tif2022/" output_path <- "F:/month" list <- list.files(raster_path, pattern = ".tif$") dir <- paste0(raster_path, list) clip_raster <- vect("F:/China/sheng2022.shp") crs(...