如何在R中制作可搜索的多边形地图？

我想在R中绘制多边形地图。我知道不同多边形的所有顶点，并知道如何使用以下方法创建多边形：

library(sp)
Polygonoutline1 <- rbind(c(x1,y1),c(x2,y2),c(x3,y3))
Polygonshape1 <- Polygon(Polygonoutline1)
Polygonoutline2 <- rbind(c(x1,y1),c(x2,y2),c(x3,y3))
Polygonshape2 <- Polygon(Polygonoutline2)
Polys1 <- Polygons(list(Polygonshape1),"Shape 1")
Polys2 <- Polygons(list(Polygonshape2),"Shape 2")
map <- SpatialPolygons(list(Polys1,Polys2))
plot(map) 

库（sp）
多边形输出1首先定义多边形，例如：

Kaplanturbineoutline <- rbind(c(0,0),c(60,0),c(950,15),c(170,80),c(10,80),c(0,20))
Kaplanturbinepolygon <- Polygon(Kaplanturbineoutline)

Francisturbineoutline <- rbind(c(4.5,12),c(125,12),c(910,15),c(910,80),c(100,700),c(6,700),c(0,55))
Francisturbinepolygon <- Polygon(Francisturbineoutline)

Crossflowturbineoutline <- rbind(c(0.3,3.5),c(10,3.5),c(10,10),c(0.3,100))
Crossflowturbinepolygon <- Polygon(Crossflowturbineoutline)

然后可以使用以下工具搜索地图：

Turbineselection <<- over(Turbinemap,Turbinepoint)

Turbineselection首先定义多边形，例如：

Kaplanturbineoutline <- rbind(c(0,0),c(60,0),c(950,15),c(170,80),c(10,80),c(0,20))
Kaplanturbinepolygon <- Polygon(Kaplanturbineoutline)

Francisturbineoutline <- rbind(c(4.5,12),c(125,12),c(910,15),c(910,80),c(100,700),c(6,700),c(0,55))
Francisturbinepolygon <- Polygon(Francisturbineoutline)

Crossflowturbineoutline <- rbind(c(0.3,3.5),c(10,3.5),c(10,10),c(0.3,100))
Crossflowturbinepolygon <- Polygon(Crossflowturbineoutline)

然后可以使用以下工具搜索地图：

Turbineselection <<- over(Turbinemap,Turbinepoint)

浊度选择
Turbinemapdf <- SpatialPolygonsDataFrame(Turbinemap,df)

spplot(Turbinemapdf,xlim=c(0,1000),ylim=c(0,1000),scales=list(draw=T),col=c("blue","orange","magenta","green","red"),fill=FALSE,colorkey=FALSE)

Turbineselection <<- over(Turbinemap,Turbinepoint)