Convierta un objeto poligonal espacial en un marco de datos usando R

Mi objetivo es modificar un archivo de forma existente fusionando ciertos polígonos.

Después de importar el archivo de forma y usar el comando UnionSpatialPolygons, obtengo el contorno del polígono que quiero.

Sin embargo, ahora es un objeto SpatialPolygons y no un SpatialPolygonsDataFrame, por lo que no puedo exportarlo a un archivo de forma usando writeOGR.

¿Cómo puedo solucionar este problema?

Como su nombre lo indica, un SpatialPolygonsDataFrame es básicamente un objeto SpatialPolygons con datos adjuntos (la tabla de atributos). Los datos deben tener al menos tantas filas como características

library(rgdal)
ob <- SpatialPolygons(..)# Your SpatialPolygons Object
spp <-     SpatialPolygonsDataFrame(ob,data=as.data.frame("yourData"),proj4string=CRS("+proj=    aea > +ellps=GRS80 +datum=WGS84"))
writeOGR(spp,"shapes","testShape",driver="ESRI Shapefile",)

----EDITAR----

Si desea convertir su SpatialPolygonsDataFrameespalda a un SpatialPolygonsobjeto, solo necesita abordar la estructura del objeto dentro de R

ob <- SpatialPolygons(spp@polygons,proj4string=spp@proj4string)

Problemas:

1: el resultado de UnionSpatialPolygons es un polígono espacial

2: convertir el resultado nuevamente en un marco de datos de polígono espacial es un verdadero dolor

-un. necesita un marco de datos muy exacto para adjuntarlo a un polígono espacial

-si. Los datos que usó para UnionSpatialPolygons tienen más filas que la salida y no están formateados de la manera que se necesita.

Mi solución (fea):

### Coerce into spatial polygon data frame with id and row name of spatial polygon

# Make a data frame that meets the requirements above:

df<- data.frame(id = getSpPPolygonsIDSlots(your.spatialpolygon))
row.names(df) <- getSpPPolygonsIDSlots(your.spatialpolygon)

# Make spatial polygon data frame
spdf <- SpatialPolygonsDataFrame(your.spatialpolygon, data =df)

# Then don't forget to make sure the projection is correct
# XXXX is your SRID

proj4string(spdf) <- CRS("+init=epsg:XXXX");
spdf <- spTransform(spdf , CRS("+init=epsg:XXXX"));