从 shapefile 中获取包含多边形 ID 和质心(经纬度)信息的数据框
Get data frame with polygons id and Centroid (lat long) information from shapefile
我有一个多边形 shapefile(可下载 here),我想从中创建一个包含 3 列的 data.frame
:
- 多边形 ID
- 质心纬度
- 质心经度
从这个答案 here 中,我知道很容易将此信息作为 Formal Class SpatialPoints
对象获取。当我将此对象转换为 data.frame 时,我丢失了 ID 信息。
# Load Shapefile
Legislative_areas <- readOGR(dsn = 'C:/Users/.../Downloads/Legislative2010UTM', layer ='Legislative2010UTM')
# Get centroids
cent <- gCentroid(Legislative_areas, byid=TRUE)
# Convert to data.frame, but loose id info
cent <- as.data.frame(cent)
知道如何保存 ID 信息吗?
library(rgdal)
library(rgeos)
# download w/o wasting bandwidth
URL <- "ftp://dnrftp.dnr.ne.gov/pub/data/state/Legislative2010UTM.zip"
fil <- basename(URL)
if (!file.exists(fil)) download.file(URL, fil)
# unzip & get list of files
fils <- unzip(fil)
# find the shapefile in it
shp <- grep("shp$", fils, value=TRUE)
# get the first layer from it
lay <- ogrListLayers(shp)[1]
# read in the shapefile
leg <- readOGR(shp, lay)
# get the centroids and then convert them to a SpatialPointsDataFrame
leg_centers <- SpatialPointsDataFrame(gCentroid(leg, byid=TRUE),
leg@data, match.ID=FALSE)
只需保留原始 shapefile 中的 @data
槽,然后从新质心制作 SpatialPointsDataFrame
。
然后您可以从中创建一个数据框,或者直接在绘图或其他 Spatial…
操作中使用它。
我有一个多边形 shapefile(可下载 here),我想从中创建一个包含 3 列的 data.frame
:
- 多边形 ID
- 质心纬度
- 质心经度
从这个答案 here 中,我知道很容易将此信息作为 Formal Class SpatialPoints
对象获取。当我将此对象转换为 data.frame 时,我丢失了 ID 信息。
# Load Shapefile
Legislative_areas <- readOGR(dsn = 'C:/Users/.../Downloads/Legislative2010UTM', layer ='Legislative2010UTM')
# Get centroids
cent <- gCentroid(Legislative_areas, byid=TRUE)
# Convert to data.frame, but loose id info
cent <- as.data.frame(cent)
知道如何保存 ID 信息吗?
library(rgdal)
library(rgeos)
# download w/o wasting bandwidth
URL <- "ftp://dnrftp.dnr.ne.gov/pub/data/state/Legislative2010UTM.zip"
fil <- basename(URL)
if (!file.exists(fil)) download.file(URL, fil)
# unzip & get list of files
fils <- unzip(fil)
# find the shapefile in it
shp <- grep("shp$", fils, value=TRUE)
# get the first layer from it
lay <- ogrListLayers(shp)[1]
# read in the shapefile
leg <- readOGR(shp, lay)
# get the centroids and then convert them to a SpatialPointsDataFrame
leg_centers <- SpatialPointsDataFrame(gCentroid(leg, byid=TRUE),
leg@data, match.ID=FALSE)
只需保留原始 shapefile 中的 @data
槽,然后从新质心制作 SpatialPointsDataFrame
。
然后您可以从中创建一个数据框,或者直接在绘图或其他 Spatial…
操作中使用它。