R重采样数据
###########################################
raster_data = target.raster
## 确定范围大小
clp.ras.ext = extent(raster_data)
## 确定分辨率大小 1 min
my.res = 1 * (1/60)
## 构建一个空的栅格数据集
raster_na_res = raster(resolution = my.res,
ext = clp.ras.ext,
crs = crs(raster_data), vals=NA)
## 重采样
resampled_bio = resample(target.raster,y = raster_na_res,method = "bilinear")