R-我有邻里的Shapefile边界.我如何确定其中的界限

Question

我正在使用一些地理数据，查看波士顿街区的边界，并试图确定某些建筑许可已获得。

到目前为止我：

1. 在ShapeFile中读取并使用 readShapepoly 将其转换为纬度和纵向的数据框架。
2. 将名称与每个社区边界相关联 - 布莱顿，唐人街等

           long      lat order  hole piece id group                    name
1     -71.12593 42.27201     1 FALSE     1  0   0.1              Roslindale
2     -71.12575 42.27235     2 FALSE     1  0   0.1              Roslindale
3     -71.12566 42.27248     3 FALSE     1  0   0.1              Roslindale
4     -71.12555 42.27258     4 FALSE     1  0   0.1              Roslindale
5     -71.12573 42.27249     5 FALSE     1  0   0.1              Roslindale
6     -71.12638 42.27217     6 FALSE     1  0   0.1              Roslindale
7     -71.12652 42.27210     7 FALSE     1  0   0.1              Roslindale
8     -71.12660 42.27218     8 FALSE     1  0   0.1              Roslindale
9     -71.12666 42.27224     9 FALSE     1  0   0.1              Roslindale
10    -71.12691 42.27210    10 FALSE     1  0   0.1              Roslindale
11    -71.12726 42.27200    11 FALSE     1  0   0.1              Roslindale
12    -71.12740 42.27196    12 FALSE     1  0   0.1              Roslindale

....

3. 为我的所有建筑物许可生成了一长串的纬度和纵向 - 这不是最初的shapefile，这意味着我不知道我是否可以使用" SF"
覆盖这两组

Latitude Longitude
      <dbl>     <dbl>
 1     42.3     -71.1
 2      0         0  
 3     42.4     -71.1
 4     42.3     -71.1
 5     42.4     -71.1
 6     42.4     -71.1
 7     42.4     -71.1
 8     42.4     -71.1
 9      0         0  
10     42.4     -71.1

我的问题是我拥有所有这些建筑许可，但是它们没有相关的社区，这是我要研究的。从概念上讲，我知道我想做这样的事情：

1. 确定每个坐标的多边形在使用步骤1和2
的我的多边形中
2. 使用第一步的标识将多边形"名称"附加到坐标社区。

Answer 1

这可以使用sf软件包完成。假设您有积分和多边形作为shapefiles，则可以执行以下操作：

library('sf')
polygonSF <- read_sf(dsn = 'polygonShapeFile')
pointSF <- read_sf(dsn = 'pointShapeFile')
st_intersection(pointSF, polygonSF)

如果他们尚未塑造文件，则有一些中间步骤。

例如，假设点（示例中的许可）存储在带有纬度和经度列的数据框架（pointDF）中。您需要将dataframe转换为shapefile，然后告诉R与用于多边形边界的点相同的坐标参考系统（CRS）：

pointSF <- st_as_sf(x = pointDF,                         
                    coords = c("longitude", "latitude"),
                    crs = "+init=epsg:4326")
pointSF <- st_transform(pointSF, crs = st_crs(poloygonSF))