我有两个shapefile,我使用readOGR()作为SpatialPolygonsDataFrame对象读入R.两者都是新西兰的地图,内部边界不同。一个人有大约70个多边形代表领土权限边界;另一个约有1900个代表区域单位。
我的目标 - 一个更大项目的烦人基本部分 - 是使用这些地图生成一个参考表,可以查找一个区域单位并返回它主要在哪个地域权威。我可以使用over()来查找哪些多边形重叠,但在许多情况下,区域单位似乎至少在很小的范围内属于多个地域当局 - 即使查看个别案例表明通常90%以上的区域单位属于单一的地域当局。 / p>
是否有一个准备好的手段,它可以执行over()所做的但不仅可以识别(或不是)所有重叠多边形,但是在每种情况下几个重叠多边形中哪一个最重叠?
答案 0 :(得分:6)
这是完成这项工作的代码,借鉴@ Silverfish的答案
library(sp)
library(rgeos)
library(rgdal)
###
# Read in Area Unit (AU) boundaries
au <- readOGR("C:/Users/Peter Ellis/Documents/NZ", layer="AU12")
# Read in Territorial Authority (TA) boundaries
ta <- readOGR("C:/Users/Peter Ellis/Documents/NZ", layer="TA12")
###
# First cut - works ok when only one TA per area unit
x1 <- over(au, ta)
au_to_ta <- data.frame(au@data, TAid = x1)
###
# Second cut - find those with multiple intersections
# and replace TAid with that with the greatest area.
x2 <- over(au, ta, returnList=TRUE)
# This next loop takes around 10 minutes to run:
for (i in 1:nrow(au_to_ta)){
tmp <- length(x2[[i]])
if (tmp>1){
areas <- numeric(tmp)
for (j in 1:tmp){
areas[j] <- gArea(gIntersection(au[i,], ta[x2[[i]][j],]))
}
# Next line adds some tiny random jittering because
# there is a case (Kawerau) which is an exact tie
# in intersection area with two TAs - Rotorua and Whakatane
areas <- areas * rnorm(tmp,1,0.0001)
au_to_ta[i, "TAid"] <- x2[[i]][which(areas==max(areas))]
}
}
# Add names of TAs
au_to_ta$TA <- ta@data[au_to_ta$TAid, "NAME"]
####
# Draw map to check came out ok
png("check NZ maps for TAs.png", 900, 600, res=80)
par(mfrow=c(1,2), fg="grey")
plot(ta, col=ta@data$NAME)
title(main="Original TA boundaries")
par(fg=NA)
plot(au, col=au_to_ta$TAid)
title(main="TA boundaries from aggregated\nArea Unit boundaries")
dev.off()
答案 1 :(得分:5)
我认为你想要的东西已经涵盖在地理信息系统SE上:
特别是如果您的区域多边形是T1,T2,T3等,并且您尝试分类的多边形是A,可能想要在A和T1的gArea
上使用gIntersection
,那么A和T2,然后A和T3等,然后挑选具有最大面积的。 (您需要rgeos
包。)