如何将多边形修改为孔 (SpatialPolygons) 更改其插槽

Question

编辑：

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

原始问题

在SpatialPolygons-class 的帮助下，我尝试将多边形修改为另一个多边形的孔，但是当“孔多边形”显示为另一个多边形的边框时，其内部与其余部分一样着色。

我做错了什么？

使用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')

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