当在raster 包中使用rasterToPolygons 时，每个满足公式条件的单元格都会变成自己的多边形：
library(raster)
r <- raster(nrow=18, ncol=36)
r[] <- runif(ncell(r)) * 10
r[r>8] <- NA
pol <- rasterToPolygons(r, fun=function(x){x>6})
plot(pol)
但是，我希望每个具有相邻边或角的多边形成为一个较大多边形的一部分，从而减少总多边形的数量。有没有办法做到这一点？
【问题讨论】：
标签： geospatial spatial r-raster rgeo
旧答案：
您可以使用参数dissolve=TRUE
library(raster)
r <- raster(nrow=18, ncol=36)
r[] <- sample(2, ncell(r), replace=TRUE)
pol <- rasterToPolygons(r, dissolve=TRUE)
plot(pol)
新答案
如果你不关心值，你可以这样做
您的示例数据
library(raster)
r <- raster(nrow=18, ncol=36)
r[] <- runif(ncell(r)) * 10
r[r>8] <- NA
将您想要的所有值单元格设置为一个值，将所有其他值设置为NA
x <- reclassify(r, rbind(c(-Inf, 6, NA), c(6, Inf, 1)))
pol <- rasterToPolygons(x, dissolve=TRUE)
请注意，pol 现在只有 1 个（多）多边形。如果你想分离非连接部分，你可以这样做
pols <- disaggregate(pol)
pols
#class : SpatialPolygonsDataFrame
#features : 80
请注意，对角相邻的多边形彼此分开，因为它们不能用于有效单个多边形（它将是自相交的）。
【讨论】：
这可以通过使用spdep 包中的poly2nb 函数来定义每个多边形的邻居，使用下面创建的函数来创建区域分配向量，使用来自maptools 的spCbind 来完成包将regions绑定到pol，然后最终使用maptools中的unionSpatialPolygons函数在regions上溶解。创建函数的基本结构是if 至少一个多边形的邻居已分配到组then 分配多边形和邻居到该组else 分配多边形和邻居到新组。
library(raster)
library(spdep)
library(maptools)
r <- raster(nrow=18, ncol=36)
r[] <- runif(ncell(r)) * 10
r[r>8] <- NA
pol <- rasterToPolygons(r, fun=function(x){x>6}, dissolve = T)
plot(pol)
nb <- poly2nb(pol)
create_regions <- function(data) {
group <- rep(NA, length(data))
group_val <- 0
while(NA %in% group) {
index <- min(which(is.na(group)))
nb <- unlist(data[index])
nb_value <- group[nb]
is_na <- is.na(nb_value)
if(sum(!is_na) != 0){
prev_group <- nb_value[!is_na][1]
group[index] <- prev_group
group[nb[is_na]] <- prev_group
} else {
group_val <- group_val + 1
group[index] <- group_val
group[nb] <- group_val
}
}
group
}
region <- create_regions(nb)
pol_rgn <- spCbind(pol, region)
pol2 <- unionSpatialPolygons(pol_rgn, region)
plot(pol2)
【讨论】：