R을 사용하여 다각형의 포인트 수를 계산합니까?


11

동일한 CRS (위도 및 경도)를 공유하는 두 개의 클래스가 있습니다.

  1. bolognaQuartieriMap: SpatialPolygonDataFrame도시의 데이터를 포함합니다.
  2. crashPoints: SpatialPointsDataFrame사고 데이터가 포함되어 있습니다.

그들은 다음을 사용하여 잘 그려져 있습니다 :

plot(bolognaQuartieriMap)
title("Crash per quartiere")
plot(crashPoints, col="red",add=TRUE)

내가 필요한 것은 crashPoints구성하는 각 다각형 의 포인트 수를 얻는 것 bolognaQuartieriMap입니다. 나는 사용하도록 제안 over()되었지만 성공하지 못했습니다.

답변:


21

재현 가능한 예제 나 오류 메시지를 제공하지 않았으므로이 코드 스 니펫이 시작되는지 확인하십시오.

library("raster")
library("sp")

x <- getData('GADM', country='ITA', level=1)
class(x)
# [1] "SpatialPolygonsDataFrame"
# attr(,"package")
# [1] "sp"

set.seed(1)
# sample random points
p <- spsample(x, n=300, type="random")
p <- SpatialPointsDataFrame(p, data.frame(id=1:300))

proj4string(x)
# [1] " +proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs +towgs84=0,0,0"
proj4string(p)
# [1] " +proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs +towgs84=0,0,0"

plot(x)
plot(p, col="red" , add=TRUE)

음모

res <- over(p, x)
table(res$NAME_1) # count points
#               Abruzzo                Apulia            Basilicata
#                    11                    20                     9
#              Calabria              Campania        Emilia-Romagna
#                    16                     8                    25
# Friuli-Venezia Giulia                 Lazio               Liguria
#                     7                    14                     7
#             Lombardia                Marche                Molise
#                    22                     4                     3
#              Piemonte              Sardegna                Sicily
#                    35                    18                    21
#               Toscana   Trentino-Alto Adige                Umbria
#                    33                    15                     6
#         Valle d'Aosta                Veneto
#                     4                    22

1
나는이 답변에 정말로 정말로 정말로 다시 감사합니다. 감사의 말을 전하십시오. 수천 감사합니다.
Danny Hern

2

다른 옵션을 남기고 싶습니다. 패키지 poly.counts()에서 사용하여 작업을 수행 할 수 있습니다 GISTools. rc 별 샘플 데이터를 사용하여 다음을 수행 할 수 있습니다. 함수를 살펴보면 함수가로 작성되었음을 알 수 있습니다 colSums(gContains(polys, pts, byid = TRUE)). 따라서 패키지 및 gContains()에서 사용할 수 있습니다 .rgeoscolSums()

library(GISTools)

poly.counts(p, x) -> res
setNames(res, x@data$NAME_1)

또는

colSums(gContains(x, p, byid = TRUE)) -> res
setNames(res, x@data$NAME_1)

결과는 다음과 같습니다.

#              Abruzzo                Apulia            Basilicata 
#                   11                    20                     9 
#             Calabria              Campania        Emilia-Romagna 
#                   16                     8                    25 
#Friuli-Venezia Giulia                 Lazio               Liguria 
#                    7                    14                     7 
#            Lombardia                Marche                Molise 
#                   22                     4                     3 
#             Piemonte              Sardegna                Sicily 
#                   35                    18                    21 
#              Toscana   Trentino-Alto Adige                Umbria 
#                   33                    15                     6 
#        Valle d'Aosta                Veneto 
#                    4                    22 

이것은 실제로 매우 도움이되었습니다. 그러나 다각형의 포인트 수를 기준으로 choropleth를 플로팅하려고하므로 결과를 저장하는 데 문제가 있습니다.
qpisqp

2

sf패키지를 사용하여 동일한 결과를 얻을 수 있습니다 . 아래에서 재현 가능하고 주석이 달린 코드를 확인하십시오. 이 패키지 sf는 공간 객체를 간단한 피처 객체로 처리하는 데 사용됩니다. 이 답변에서 패키지 raster는 다운로드 예제 다각형 데이터와 dplyr마지막에 데이터 변환을위한 패키지에만 사용됩니다 .

# Load libraries ----------------------------------------------------------

library(raster)
library(sf)
library(dplyr)

# Get sample data ---------------------------------------------------------

# Get polygon
polygon <- getData('GADM', country='URY', level = 1)[,1] # Download polygon of country admin level 1 
polygon <- st_as_sf(polygon) # convert to sf object
colnames(polygon) <- c("id_polygons", "geometry") # change colnames
polygon$id_polygons <- paste0("poly_", LETTERS[1:19]) #  change polygon ID

# Get sample random poins from polygon bbox
set.seed(4)
bbox <- st_as_sfc(st_bbox(polygon))
points <- st_sample(x = bbox, size = 100, type = "random")
points <- st_as_sf(data.frame(id_points = as.character(1:100)), points) # add points ID

# Plot data ---------------------------------------------------------------

# Plot polygon + points
plot(polygon, graticule = st_crs(4326), key.pos = 1)
plot(points, pch = 19, col = "black", add = TRUE)

# Intersection between polygon and points ---------------------------------

intersection <- st_intersection(x = polygon, y = points)

# Plot intersection
plot(polygon, graticule = st_crs(4326), key.pos = 1)
plot(intersection[1], col = "black", pch = 19, add = TRUE)

# View result
table(intersection$id_polygons) # using table

# using dplyr
int_result <- intersection %>% 
  group_by(id_polygons) %>% 
  count()

as.data.frame(int_result)[,-3]

교차점

교차점

당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.