1
ポリゴン内のspパッケージのポイントと同等/ sfを使用したオーバー
コードをspパッケージから新しいsfパッケージに移行しています。以前のコードでは、SpatialDataFrame(censimentoMap)とSpatialPointDataFrame(indirizzi.sp)のポリゴンがあり、以下の手順で各ポイントのポリゴンセルID(Cell110)を取得しました。 points.data <- over(indirizzi.sp, censimentoMap[,"Cell110"]) 実際に、2つのsfオブジェクトを作成しました。 shape_sf <- st_read(dsn = shape_dsn) shape_sf <- st_transform(x=shape_sf, crs=crs_string) そして indirizzi_sf = st_as_sf(df, coords = c("lng", "lat"), crs = crs_string) そして、上記の命令に相当するsfを探しています... ids<-sapply(st_intersects(x=indirizzi_sf,y=shshape_sfpeCrif), function(z) if (length(z)==0) NA_integer_ else z[1]) cell_ids <- shape_sf[ids,"Cell110"]