> library(sp)
> library(maptools)
> library(raster)
> library(rgeos)
> maxd3 = readAsciiGrid("max.d3.txt") # 加载数据
> rasterlayer.maxd3 = raster(maxd3) # 转化为Raster
> maxd1 = readAsciiGrid("max.d1.txt")
> rasterlayer.maxd1 = raster(maxd1)
> rasterlayer.max.d3.d1 = rasterlayer.maxd3 - rasterlayer.maxd1 # 比较3天与1天的数据
> rc <- reclassify(rasterlayer.max.d3.d1, c(-Inf,0,1, 0,Inf,NA)) # 对比较结果进行分类,提取出 有问题的数据
> rasterlayer.maxRange = rasterlayer.maxd1>0 #提取范围
> maxRange = rasterToPolygons(rasterlayer.maxRange, dissolve=TRUE)
> cols = grey.colors(20, 0.1, 0.9, 2.2)
> image(rc, col=cols, useRaster=TRUE) #显示有问题的数据
> plot(maxRange, add=TRUE) #显示整个范围