如何将多边形修改为孔（SpatialPolygons）更改其槽

Question

编辑：

正如Edzer Pebesma在评论中所建议的那样，向多边形添加孔的推荐方法不是修改槽而是重建多边形，如图in this related question所示。

原始问题

在SpatialPolygons-class的帮助下，我尝试将多边形修改为另一个多边形的洞，但是＆＃34;孔多边形＆＃34;显示为另一个多边形的边框，其内部颜色为其余多边形。

我做错了什么？

使用defPunched和defHole定义here：

library("sp")
load(url("http://spatcontrol.net/CorentinMBarbu/misc/holeIssue.rda"))
defHole@polygons[[1]]@Polygons[[1]]@hole<-TRUE
OnePolDFToPolygon <- function(x){
     main <- x@polygons[[1]]@Polygons[[1]]
     return(main)
 }
punch <- Polygons(list(OnePolDFToPolygon(defPunched),OnePolDFToPolygon(defHole)),defPunched@polygons[[1]]@ID)
mine <- SpatialPolygons(list(punch),proj4string=defPunched@proj4string)
mine <- SpatialPolygonsDataFrame(mine,data=as(defPunched,"data.frame"))
plot(mine,col="blue",border="green")

Answer 1

孔应该具有相反的环方向，例如由

mine@polygons[[1]]@Polygons[[2]]@coords = mine@polygons[[1]]@Polygons[[2]]@coords[5:1,]
plot(mine, col = 'blue')

你得到下面的情节。这些数据来自哪里？