writeOGR พร้อม spatialpolygon ทำให้เข้าใจง่ายโดย gSimplify


12

ฉันใช้gSimplify(แพ็คเกจ rgeos) เพื่อทำให้รูปทรงเรขาคณิตของ shapefile ง่ายขึ้น funcion ทำงานได้ดี แต่ตอนนี้ฉันไม่สามารถเขียนผลลัพธ์ในรูปแบบไฟล์ใหม่ได้ ฉันลองวิธีบางอย่าง:

writeOGR(simplyshape, file, driver="ESRI Shapefile", layer='test')

ฉันเข้าใจ

obj ต้องเป็น SpatialPointsDataFrame, SpatialLinesDataFrame หรือ SpatialPolygonsDataFrame

และด้วย:

writePolyShape(simplyshape, file)

ฉันเข้าใจ:

ข้อผิดพลาด: คือ (x, "SpatialPolygonsDataFrame") ไม่ใช่ TRUE

คำตอบ:


8

บีบบังคับวัตถุของคุณให้อยู่ในSpatial*DataFrameระดับ -class (Points / Lines / Polygons) ที่เหมาะสมเช่นสำหรับการSpatialPolygonsใช้งานas(x, "SpatialPolygonsDataFrame" ):

R> l <- readWKT("LINESTRING(0 7,1 6,2 1,3 4,4 1,5 7,6 6,7 4,8 6,9 4)")
R> x1 <- gSimplify(p, tol=10)
R> class(x1)
[1] "SpatialPolygons"
attr(,"package")
[1] "sp"
R> x2 <- as(x, "SpatialPolygonsDataFrame")
R> class(x2)
[1] "SpatialPolygonsDataFrame"
attr(,"package")
[1] "sp"

5

คุณต้องแปลงSpatialPolygonsชั้นเรียนของคุณเป็นSpatialPolygonsDataFrameชั้นเรียน ตัวอย่างเช่น:

require(rgdal)
require(rgeos)

# Read shapefile
shp = 'C:/temp/myshp.shp'
myshp = readOGR(shp, layer = basename(strsplit(shp, "\\.")[[1]])[1])

# Read shapefile attributes
df = data.frame(myshp)

# Simplify geometry using rgeos
simplified = gSimplify(myshp, tol = 1000, topologyPreserve=FALSE)

# Create a spatial polygon data frame (includes shp attributes)
spdf = SpatialPolygonsDataFrame(simplified, df)

# Write to shapefile
writeOGR(spdf, layer = 'myshp_simplified', 'C:/temp', driver="ESRI Shapefile")
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.