我正在寻找一种从 SpatialPolygons 列表创建 SpatialPolygonsDataFrame 的方法?
下面是一个多边形列表的示例,应从中创建包含列表中所有多边形的 SpatialPolygonsDataFrame。
编辑:SpatialPolygonsDataFrame 必须从 SpatialPolygons 列表中创建!因为我的原始数据不包含 SpatialPolygons 作为单独的值,而是包含 SpatialPolygons 列表。
我收到此列表的方式与示例中的方式不同。我发布了示例来显示列表的数据结构。
取自的 SpatialPolygons 列表示例https://stat.ethz.ch/pipermail/r-sig-geo/2013-January/017225.html https://stat.ethz.ch/pipermail/r-sig-geo/2013-January/017225.html:
library(sp)
grd <- GridTopology(c(0.5, 0.5), c(1, 1), c(6, 6))
Spol <- as(grd, "SpatialPolygons")
list_of_SPolsu <- lapply(slot(Spol, "polygons"), function(x)
SpatialPolygons(list(x)))
list_of_SPols <- lapply(slot(Spol, "polygons"), function(x) {
Pol <- x
slot(Pol, "ID") <- "1"
SpatialPolygons(list(Pol))
})
Regards!