รับ TopologyException: Input geom 1 ไม่ถูกต้องซึ่งเกิดจากการตัดกันด้วยตัวเองใน R?

ข้อผิดพลาด 'TopologyException: Input geom 1 ไม่ถูกต้อง' ซึ่งเกิดขึ้นจากรูปหลายเหลี่ยมที่ไม่ถูกต้องซึ่งมีการกล่าวถึงกันอย่างกว้างขวาง อย่างไรก็ตามฉันไม่พบวิธีแก้ไขปัญหาที่สะดวกบนเว็บที่อาศัยการทำงานของ R เพียงอย่างเดียว

ยกตัวอย่างเช่นฉันมีการจัดการเพื่อสร้างวัตถุ 'SpatialPolygons จากการส่งออกของmap("state", ...)ต่อไปนี้เป็นคำตอบที่ดี Josh โอไบรอันที่นี่

library(maps)
library(maptools)

map_states = map("state", fill = TRUE, plot = FALSE)

IDs = sapply(strsplit(map_states$names, ":"), "[[", 1)
spydf_states = map2SpatialPolygons(map_states, IDs = IDs, proj4string = CRS("+init=epsg:4326"))

plot(spydf_states)

ปัญหาของชุดข้อมูลที่ใช้กันอย่างแพร่หลายในขณะนี้คือการตัดกันด้วยตนเองเกิดขึ้น ณ จุดที่ระบุด้านล่าง

rgeos::gIsValid(spydf_states)
[1] FALSE
Warning message:
In RGEOSUnaryPredFunc(spgeom, byid, "rgeos_isvalid") :
  Self-intersection at or near point -122.22023214285259 38.060546477866055

แต่น่าเสียดายที่ปัญหานี้จะช่วยป้องกันการใช้งานต่อใด ๆ ของ 'spydf_states' rgeos::gIntersectionเช่นเมื่อโทร ฉันจะแก้ปัญหานี้จากภายใน R ได้อย่างไร

การใช้บัฟเฟอร์ที่มีความกว้างเป็นศูนย์จะกำจัดปัญหาโทโพโลยีจำนวนมากใน R

spydf_states <- gBuffer(spydf_states, byid=TRUE, width=0)

อย่างไรก็ตามการทำงานกับพิกัดละติจูดยาวที่ไม่มีโครงการอาจทำให้เกิดrgeosคำเตือนได้

นี่คือตัวอย่างเพิ่มเติมที่นำมาฉายใน Albers ก่อน:

library(sp)
library(rgeos)

load("~/Dropbox/spydf_states.RData")

# many geos functions require projections and you're probably going to end
# up plotting this eventually so we convert it to albers before cleaning up
# the polygons since you should use that if you are plotting the US
spydf_states <- spTransform(spydf_states, 
                            CRS("+proj=aea +lat_1=29.5 +lat_2=45.5 +lat_0=37.5 +lon_0=-96"))

# simplify the polgons a tad (tweak 0.00001 to your liking)
spydf_states <- gSimplify(spydf_states, tol = 0.00001)

# this is a well known R / GEOS hack (usually combined with the above) to 
# deal with "bad" polygons
spydf_states <- gBuffer(spydf_states, byid=TRUE, width=0)

# any bad polys?
sum(gIsValid(spydf_states, byid=TRUE)==FALSE)

## [1] 0

plot(spydf_states)