Question

我一直在尝试创建一个新的栅格对象，它只包含现有栅格中的几个值。我正在使用此处找到的类栅格：https://www.ga.gov.au/products/servlet/controller?event=FILE_SELECTION&catno=71071。

class       : RasterLayer  dimensions  : 14902, 19161, 285537222 (nrow, ncol, ncell) 
resolution  : 0.002349, 0.002349  (x, y) 
extent      : 110, 155.0092, -45.0048, -9.999999  (xmin, xmax, ymin, ymax) 
coord. ref. : +proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0  
values      : G:\Spatial data\environmental_layers\Australian data\Land cover\Class\DLCDv1_Class.tif  
min value   : 1  
max value   : 34

我试过了：

pr <- rasterToPoints(r) # but the file is to big

和

s <- r[r>30 & r<33] # but the file is to big

和

rc <- reclass(r, c(-Inf,30,NA, 31,32, 1, 33,Inf,NA))

生成具有属性的栅格：

class       : RasterLayer 
dimensions  : 14902, 19161, 285537222  (nrow, ncol, ncell)
resolution  : 0.002349, 0.002349  (x, y)
extent      : 110, 155.0092, -45.0048, -9.999999  (xmin, xmax, ymin, ymax)
coord. ref. : +proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0 
values      : C:\Users\Adam\AppData\Local\Temp\R_raster_tmp\raster_tmp_61931056968.grd 
min value   : 1 
max value   : 33

我认为这会产生一个值为NA和1的栅格图层，但它有33个值。我一直在努力找到一种方法来使用R在这么大的文件上“按属性提取”。有没有人建议我怎么做？

Answer 1

reclassify()可能适用于非常大的栅格，但您需要正确指定“是”“变为”矩阵。虽然我不确定你的问题，当你说“光栅提取”时，这实际上是你的目标。

但是，以下是重新分类的方法：

例如：

## Create sample raster with values from 0 to 9
r <- raster(nrow=100, ncol=100)
r[] <- trunc(runif(ncell(r))*10)

## Create reclassification table
## Set values 0 to 4 equal to 1
## Set values 5 to 9 equal to NA

isBecomes <- cbind(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9),
                   c(1, 1, 1, 1, 1, NA, NA, NA, NA, NA))

r2 <- reclassify(r, rcl=isBecomes)

我没有在一个太大而不适合内存的栅格中对此进行测试，但我相信reclassify（）可能能够解决这个问题。

R中的属性提取栅格

1 个答案: