我想要得到全球GLASS FVC每年一景的栅格影像。
我从http://www.glass.umd.edu/FVC/AVHRR/
网站上下载了1900-2020年数据,求平均值得到了我要的数据。但是结果发现在2019年FVC有一个明显的下降,想知道是我处理的问题还是这个数据源就是有问题?我在下面贴出我的代码和我算出来的变化趋势。(最下面是未裁剪过的全球的数据,仍旧出现了19年急剧下降的趋势)
以及别人给了一个中国区域的GLASS FVC数据,是在GEE上下载处理的,和我的值并不一样,也没有出现2019下降那么多的情况,请问GLASS FVC在GEE上的产品是什么名字?
代码:
# 导入所需库
library(terra)
library(rgdal)
library(doParallel)
library(foreach)
# 设置工作目录
setwd("D:/3_/")
# 读取中国行政区域矢量文件
mask_c <- vect("province.shp")
mask_china <- mask_c[[1]]
# 设置并行处理
cl <- makeCluster(12)
registerDoParallel(cl)
# 循环处理每一年的数据
foreach (year = 1985:2020, .packages = c("terra", "rgdal")) %dopar% {
# 读取原始数据
filedir <- paste0("GLASS_FVC/global_hdf_annual/", year, "/")
hdf_file <- list.files(path = filedir, pattern = ".hdf$")
hdfs <- rast(paste0(filedir, hdf_file))
# 计算每年平均值
tifs_mean <- app(hdfs, mean, na.rm = TRUE)
# 保存为栅格影像
writeRaster(
tifs_mean,
paste0("GLASS_FVC/global_tif_annual/GLASS_FVC_005_", year, ".tif"),
overwrite = TRUE
)
# 裁剪到中国区域
china_fvc <- crop(tifs_mean, mask_china) %>%
mask(mask_china) %>%
writeRaster(
.,
paste0("GLASS_FVC/china_tifs/GLASS_FVC_005_", year, ".tif"),
overwrite = TRUE
)
}
# 关闭并行处理
stopCluster(cl)
变化趋势:
