ฉันพยายามที่จะตัดสอง SpatialPolygonsDataFrames และรับ SpatialPolygonsDataFrame เป็นผลลัพธ์ น่าเสียดายที่การใช้gIntersection
ฟังก์ชั่นจากrgeos
(ซึ่งทำงานได้อย่างน่าประทับใจอย่างรวดเร็วเพื่อตัดรูปหลายเหลี่ยม) ฉันไม่สามารถเรียกข้อมูลที่เกี่ยวข้องได้ ลองพิจารณาตัวอย่างต่อไปนี้:
> fracPoly <- gIntersection( toSingle, fromSingle )
> class(toSingle)
[1] "SpatialPolygonsDataFrame"
> class(fromSingle)
[1] "SpatialPolygonsDataFrame"
> class(fracPoly)
[1] "SpatialPolygons"
ฉันสามารถเขียนฟังก์ชั่น wrapper ที่จัดการการถ่ายโอนdata.frames
แต่มันจะเป็นความเจ็บปวดเล็กน้อยที่จะได้รับการตรวจสอบที่ถูกต้องและก่อนที่ฉันจะทำฉันหวังว่าจะมีคนยืนยันว่าไม่มีทางที่ดีกว่าหรือชี้ให้ฉันฟังก์ชั่นอื่น สำหรับgIntersection
) ซึ่งจะอนุญาตให้ฉันรักษาความสัมพันธ์data.frames
ไว้
ปรับปรุง
gIntersection
สะท้อนต่อไปนี้อาจอาจจะมีพฤติกรรมเจตนามาก ท้ายที่สุดของ SPDF สองตัวที่มี data.frame คุณผ่านมาได้บ้าง ดังนั้นฉันอาจต้องเขียนเสื้อคลุมที่ผสานทั้งสอง