Проверка, попадают ли точки в полигональный шейп-файл

19

У Zillow есть набор шейп-файлов для разных районов крупных городов США. Я хотел проверить, присутствовали ли определенные здания в определенных районах, используя R:

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

df <- data.frame(Latitude =c(47.591351, 47.62212,47.595152),
                 Longitude = c(-122.332271,-122.353985,-122.331639),
                 names = c("Safeco Field", "Key Arena", "Century Link"))
coordinates(df) <- ~ Latitude + Longitude

wa.map <- readOGR("ZillowNeighborhoods-WA.shp", layer="ZillowNeighborhoods-WA")

sodo <- wa.map[wa.map$CITY == "Seattle"  & wa.map$NAME == "Industrial District", ]

Я могу строить без проблем

plot(sodo)
points(df$Latitude ~ df$Longitude, col = "red", cex = 1)

введите описание изображения здесь

Я сопоставляю proj4строку из шейп-файла с моим data.frame

CRSobj <- CRS("+proj=longlat +datum=NAD83 +no_defs +ellps=GRS80 +towgs84=0,0,0 ")
df@proj4string <- CRSobj

over(df, sodo)

Это просто дает мне кучу NAценностей. Я пробовал этот ответ

spp <- SpatialPoints(df)
spp@proj4string <- CRSobj
over(spp, sodo)

но все равно получают только NAзначения. Есть идеи, что еще я должен попробовать?

Stedy
источник

Ответы:

20

Пространство data.frameне правильно сформировано. Это может сработать:

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

wa.map <- readOGR("ZillowNeighborhoods-WA.shp", layer="ZillowNeighborhoods-WA")

sodo <- wa.map[wa.map$CITY == "Seattle"  & wa.map$NAME == "Industrial District", ]

# Don't use df as name, it is an R function
# Better to set longitudes as the first column and latitudes as the second
dat <- data.frame(Longitude = c(-122.332271,-122.353985,-122.331639),
                  Latitude =c(47.591351, 47.62212,47.595152),
                  names = c("Safeco Field", "Key Arena", "Century Link"))
# Assignment modified according
coordinates(dat) <- ~ Longitude + Latitude
# Set the projection of the SpatialPointsDataFrame using the projection of the shapefile
proj4string(dat) <- proj4string(sodo)

over(dat, sodo)
#  STATE COUNTY    CITY                NAME REGIONID
#1    WA   King Seattle Industrial District   271892
#2  <NA>   <NA>    <NA>                <NA>       NA
#3  <NA>   <NA>    <NA>                <NA>       NA

over(sodo, dat)
#           names
#122 Safeco Field

источник
7

Я просто делал то же самое. Ответ Паскаля почти охватывает это, но вам может потребоваться два дополнительных шага, как показано ниже.

#After you create your list of latlongs you must set the proj4string to longlat
proj4string(dat) <- CRS("+proj=longlat")

#Before you re-set the proj4string to the one from sodo you must actually convert #your coordinates to the new projection
dat <- spTransform(dat, proj4string(sodo))
Джон Карри
источник
Мне не ясно, в каких случаях необходимы эти дополнительные шаги. Для меня решение ответа user32309 было достаточно хорошим.
Джурио
3
Это зависит от того, в каком формате находятся ваши данные. Если вы находитесь в проекции A, и вы просто хотите объявить, что используете proj4string, у вас все получится. Но если он находится в проекции B и вам необходимо выполнить преобразование в проекцию A, вам нужно использовать spTransform.
Джон Карри
2

Я использовал подобный подход к принятому ответу в этом посте, но никогда не был удовлетворен им, поэтому я искал альтернативы и нашел библиотеку sf .

И используя эту библиотеку, вы можете написать такой код:

library(sf)
# Shapefile from ABS: 
# https://www.abs.gov.au/AUSSTATS/abs@.nsf/DetailsPage/1270.0.55.004July%202016?OpenDocument
map = read_sf("data/ABS/shapes/SUA_2016_AUST.shp")

pnts_sf <- st_as_sf(pnts, coords = c('y', 'x'), crs = st_crs(map))

pnts <- pnts_sf %>% mutate(
  intersection = as.integer(st_intersects(geometry, map))
  , area = if_else(is.na(intersection), '', map$SUA_NAME16[intersection])
) 

pnts

Выход:

         geometry intersection area    
*     <POINT [°]>        <int> <chr>   
1 (138.62 -34.92)           79 Adelaide
2 (138.58 -34.93)           79 Adelaide
3 (138.52 -34.95)           79 Adelaide
4 (152.71 -27.63)           60 Brisbane
5 (153.01 -27.57)           60 Brisbane
6  (150.73 -33.9)           31 Sydney  
7 (150.99 -33.92)           31 Sydney 

Я разместил этот код в другом посте, который был похож на этот вопрос, здесь: Определить точку, содержащую многоугольник, с пакетом R sf

Майкл Гордон
источник