基于R语言的NDVI的Sen-MK趋势检验

本实验拟分析艾比湖地区2010年至2020年间的NDVI数据，数据从MODIS遥感影像中提取的NDVI值，在GEE遥感云平台上将影像数据下载下来。代码如下：

csharp 复制代码

import ee
import geemap 
geemap.set_proxy(port=7890)# 设置全局网络代理
Map = geemap.Map()

# 指定艾比湖地区数据范围
region = ee.Geometry.BBox(82.433,
                          44.367,
                          84.5,
                          45.267)
                          
def get_mean_ndvi(year):
  
  y1,y2 = f'{year}-01-01', f'{year+1}-01-01'
  
  ndvi_collection = (ee.ImageCollection('MODIS/MCD43A4_006_NDVI') 
                     .filterDate(y1,y2) 
                     .filterBounds(region))
  ndvi = ndvi_collection.reduce(ee.Reducer.mean())
  
  geemap.ee_export_image_to_drive(
    ndvi, description=f'ndvi{year}', folder='image',scale=1000,region=region)
  
for y in range(2010,2021):
  get_mean_ndvi(y)

影像会下载到Google云盘中，通过手动下载到本地，其根目录结构如下：

图1 根目录结构

下载该10年间的数据后，打开RStdio并导入将趋势检验中将使用的R包。代码如下：

csharp 复制代码

library(sp)
library(raster)
library(rgdal)
library(trend)

setwd('E:/CN/NDVI')
fl <- list.files(pattern = '*tif$')
firs <- raster(fl[1])

for (i in 1:10) {
    r <- raster(fl[i])
    firs <- stack(firs, r)
}

fun <- function(y){
    if(length(na.omit(y)) <10) return(c(NA, NA, NA))   #删除数据不连续含有NA的像元
    av <- mean(y,na.rm=T)
    MK_estimate <- sens.slope(ts(na.omit(y), start = 2010, end = 2020, frequency = 1), conf.level = 0.95) #Sen斜率估计
    slope <- MK_estimate$estimate
    MK_test <- MK_estimate$p.value
#    Zs <- MK_estimate$statistic
    return(c(av, slope, MK_test))
}

e <- calc(firs, fun)   #栅格计算
#e_Zs <- subset(e,1)  #提取Z统计量
e_mean <- subset(e,1) #提取均值图层
e_slope <- subset(e,2)   #提取sen斜率
e_MKtest <- subset(e,3)   #提取p值

plot(e_mean)
plot(e_slope)
plot(e_MKtest)

writeRaster(e_mean, "E:/CN/NDVI/e_Zs.tif", format="GTiff", overwrite=T)
writeRaster(e_slope, "E:/CN/NDVI/e_slope.tif", format="GTiff", overwrite=T)
writeRaster(e_MKtest, "E:/CN/NDVI/e_MKtest.tif", format="GTiff", overwrite=T)