我试图创建一个简单的维多利亚单张地图,以在单击郊区时显示名称。
由于我的shapefile包含更多显示街道级别信息的粒度数据,因此我想基于shapefile中的“郊区”列聚合粒度数据,以便在单击“郊区”时,它会突出显示由较小的郊区组成的郊区街道级形状。
我的shapefile看起来像这样
MOVEMENT_I, DISPLAY_NA, id
1, 0 Giddings Street, North Geelong, 0
6, Lennoxs Lane, Fiskville, 5
我已经在我的shapefile数据集中创建了来自显示名称的郊区列。我可以在弹出标签中看到郊区中每个较小形状的郊区名称准确出现。
locations <- leaflet(destinationsOnly) %>%
addTiles() %>%
addMarkers(lng=144.9671 , lat=-37.8183, popup="Flinders Street Railway Station")%>%
addPolygons(data = PG,color = "#444444", weight = 1, smoothFactor = 0.5,
opacity = 1.0, fillOpacity = 0.2,popup = PG$suburb,
highlightOptions = highlightOptions(color = "white", weight = 2,
bringToFront = TRUE))
locations
我希望有一种方法可以只突出郊区边界以防万一。任何帮助表示赞赏。谢谢。