在地图上查找多边形截距

Question

我试图在这张地图上找到半径R，以截取R中的状态边界。

到目前为止，这是我的代码。 感谢用户Gregoire Vincke提供了许多解决方案。

library("maps")
library("mapproj")
library("RColorBrewer")
library("mapdata")
library("ggplot2")
library("rgeos")
library("dismo")
library("ggmap")
library("rgdal")

data("stateMapEnv") #US state map

dat <- read.csv("R/longlat.csv",header = T)

map('state',fill = T, col = brewer.pal(9,"Pastel2"))

#draws circles around a point, given lat, long and radius

plotCircle <- function(lonDec, latDec, mile) {
  ER <- 3959
  angdeg <- seq(1:360)
  lat1rad <- latDec*(pi/180)
  lon1rad <- lonDec*(pi/180)
  angrad <- angdeg*(pi/180)
  lat2rad <- asin(sin(lat1rad)*cos(mile/ER) + cos(lat1rad)*sin(mile/ER)*cos(angrad))
  lon2rad <- lon1rad + atan2(sin(angrad)*sin(mile/ER)*cos(lat1rad),cos(mile/ER)-sin(lat1rad)*sin(lat2rad))
  lat2deg <- lat2rad*(180/pi)
  lon2deg <- lon2rad*(180/pi)
  polygon(lon2deg,lat2deg,lty = 1 , col = alpha("blue",0.35))
  }

point <- mapproject(dat$lng,dat$lat)
points(point, col = alpha("black",0.90), cex = 0.4, pch = 20) #plots points

plotCircle(-71.4868,42.990684,20)
plotCircle(-72.57085,41.707932,12)
...
#this goes on for every point

我想将拦截状态边界的点存储在新的数据框中，任何帮助将不胜感激！

Answer 1

编辑 ：这是使用R（sp，rgdal，rgeos）中的地理空间分析包对工作流程进行的广泛概述。

1. 而不是使用maps包和stateMapEnv，您需要一个具有状态边界的多边形shapefile，例如可以在以下位置找到的多边形文件： https ://www.census.gov/geo/maps-data/data/cbf/cbf_state.html

然后，您可以使用readOGR包中的readOGR将那个shapefile加载到R中，以获取一个SpatialPolygons （简称为state_poly ），每个状态带有一个Polygons对象。

2. 根据您的长/ 纬坐标创建一个SpatialPoints对象：

pts <- SpatialPoints(dat[, c("lng", "lat")], proj4string = CRS("+proj=longlat"))

3. 此时，您的pts和state_poly应该在经度/纬度坐标中， 但是要在点周围绘制固定半径的圆，您需要将它们转换为投影坐标（即以米为单位）。 有关更多详细信息，请参见此问题： 带gbuffer的R中的缓冲区（地理）空间点

4. 使用围绕每个点的圆半径创建一个矢量，并将其与gBuffer（来自rgeos）和您的点图层一起使用：

circ <- gBuffer(pts, width = radii, byid = TRUE)

byid参数表示它对每个点分别进行处理，并使用半径的不同值（与这些点相同的顺序）。

5. 将状态多边形转换为线： state_lines <- as(state_poly, "SpatialLines")

6. 使用gIntersects(circ, state_lines, byid = TRUE) 。

由于byid = TRUE ，因此返回值是一个矩阵，在您的spgeom1中，每个圆圈一行一行，在spgeom2中，每个状态边界一行一行。 请注意，如果圆与两个状态之间的边界相交，则该行应在该行中具有两个“ TRUE”值（每个状态一个）。 如果它与水或美国的外围相交，则该行中可能只有一个“ TRUE”值。

Answer 2

这是最终代码！

library("maps")
library("mapproj")
library("RColorBrewer")
library("mapdata")
library("ggplot2")
library("rgeos")
library("dismo")
library("ggmap")
library("rgdal")

#import shape file (.shp), make sure all the other files in the zip are included in
#your file location!
state_poly <- readOGR(dsn = 'C:/Users/chopp/Documents/R', layer='cb_2015_us_state_500k')

#data containing lng and lat coordinates with radii
data <- read.csv("R/longlat.csv", header = T)

#create spatial point objects out of your lng and lat data
pts <- SpatialPoints(data[,c("lng","lat")], proj4string = CRS("+proj=longlat"))

#convert spatial points to projected coordinates (points and map lines)
ptsproj <- spTransform(pts, CRS("+init=epsg:3347"))
state_poly_proj<- spTransform(state_poly, CRS("+init=epsg:3347"))

#convert radii units to meters, used in our gBuffer argument later on 
radii <- data$rad*1609.344

#create circular polygons with. byid = TRUE will create a circle for each point
circ <- gBuffer(ptsproj, width = radii, byid = TRUE)



#convert state polygons to state lines    
state_lines<- as(state_poly_proj, "SpatialLines")

#use gIntersects with byid = TRUE to return a matrix where "TRUE" represents 
#crossing state boundaries or water
intdata <- gIntersects(circ, state_lines, byid = TRUE)

#write the matrix out into a csv file
write.csv(intdata,"R/Agents Intercepts 2.csv")