Я пытаюсь (безуспешно) создать карту, показывающую отдельные полигоны для разных категорий для одной и той же переменной, которую я мог бы также включать и выключать с помощью управления слоями.
Вот код, который я использую, добавляя сразу все категории при добавлении многоугольника:
metro1 %>%
leaflet() %>%
addProviderTiles(providers$OpenStreetMap.Mapnik, group = "Basemap")%>%
addPolygons(color = "#444444", weight = 0.5, smoothFactor = 0.5,
opacity = 1.0, fillOpacity = .5, group = "Block groups",
label = ~GEOID2,
fillColor = ~pal(C_CLREC),
highlightOptions = highlightOptions(color = "white", weight = 2,
bringToFront = TRUE),
popup = ~paste("Block Group:", GEOID2,
"<br/>",
"Cluster", C_CLREC))%>%
addLegend(pal = pal,
value = ~C_CLREC,
title = "Clusters")%>%
addLayersControl(
baseGroups = c("Block groups (default)", "Basemap"),
options = layersControlOptions(collapsed = FALSE)
)