0

空間ポイント データを空間ポリゴン データに結合しようとしています。

しばらく前に、この非常に役立つスレッドが投稿されました: R を使用して、ポイントに最も近い関連付けられたポリゴンの情報を取得する方法は?

およびクロスリンク: https://gis.stackexchange.com/questions/18726/spatial-distance-join-between-polygon-and-points-using-r

OPによって投稿されたコードを使用しようとしています:

library(rgeos)
library(sp) 
library(maptools)
library(rgdal)
library(sp)

ky.map <- readShapeSpatial("~/KYcounties.shp") 

points.xy <- readShapeSpatial('~/points.shp') # Sample data of the points file 
                                              # is below.

私が使っている機能は

IntersectPtWithPoly <- function(x, y) { 
# Extracts values from a SpatialPolygonDataFrame with SpatialPointsDataFrame,
# and appends table (similar to ArcGIS intersect)
# Args: 
#   x: SpatialPoints*Frame
#   y: SpatialPolygonsDataFrame
# Returns:
# SpatialPointsDataFrame with appended table of polygon attributes
# Set up overlay with new column of join IDs in x
z <- overlay(y, x)
# Bind captured data to points dataframe
x2 <- cbind(x, z)
# Make it back into a SpatialPointsDataFrame 
# Account for different coordinate variable names 
if(("coords.x1" %in% colnames(x2)) & ("coords.x2" %in% colnames(x2))) {
  coordinates(x2) <- ~coords.x1 + coords.x2
} else if(("x" %in% colnames(x2)) & ("x" %in% colnames(x2))) {
  coordinates(x2) <- ~x + y
}

# Reassign its projection if it has one
if(is.na(CRSargs(x@proj4string)) == "FALSE") {
  x2@proj4string <- x@proj4string
}
return(x2)
}

と呼ばれ、

test <- IntersectPtWithPoly(points.xy, ky.map)

私が得ることを除いて、これはかなりうまくいきます：

Warning message: 'overlay' is deprecated. Use 'over' instead.

結合されたポリゴン フィールドの一連の NA と同様に。

けっこうだ：

z <- over(y, x)

しかし、それは私を取得します：

Error in data.frame(..., check.names = FALSE) : arguments imply differing
number of rows: 96, 121

以下は、私が使用しているポイント データのサンプルです (QGIS にドロップされ、シェープファイルとしてエクスポートされます)。

structure(list(ID = c(5L, 11L, 33L, 41L, 73L, 119L, 175L, 206L, 
216L, 229L), Latitude = c(38.239829, 38.9231075, 38.04169866, 
38.13953849, 38.14800534, 37.85059283, 38.17820492, 38.00833019, 
38.22189947, 36.87255699), Longitude = c(-85.746211, -84.4108925, 
-84.49738797, -85.6776972, -85.02502406, -84.57452618, -85.56667237, 
-84.42084641, -85.48653626, -84.22021486)), .Names = c("ID", 
"Latitude", "Longitude"), row.names = c(NA, 10L), class = "data.frame")

Google ドライブでシェープファイルを共有しました: https://docs.google.com/file/d/0B1bNxpx4XS8dSFJlOTlQSUw0LTg/edit?usp=sharing

考え？

4

1 に答える 1