Legenda do folheto para marcadores personalizados em R
Eu tenho um aplicativo R Shiny que usa o Leaflet para criar um mapa interativo. Nesse mapa, uma variável categórica é usada para designar diferentes tipos de pontos e é visualizada usando marcadores personalizados (ícones diferentes, dependendo do nível do fator).
O que eu gostaria de fazer é adicionar uma legenda ao gráfico, mas faça com que a legenda mostre os vários ícones de marcador em vez de cores sólidas. otutorial de lendas não cobre isso.
Me deparei com outroSO resposta que parece resolver isso - mas foi feito em JavaScript e não sei como traduzi-lo / se ele pode ser traduzido para funcionar em R. Alguém sabe como fazer isso?
Um exemplo reprodutível básico:
library(leaflet)
# Sample Data
data(quakes)
quakes <- quakes[1:10,]
# Choose Icon:
leafIcons <- icons(
iconUrl = ifelse(quakes$mag < 4.6,
"http://leafletjs.com/docs/images/leaf-green.png",
"http://leafletjs.com/docs/images/leaf-red.png"
),
iconWidth = 38, iconHeight = 95,
iconAnchorX = 22, iconAnchorY = 94)
# Produce Map:
leaflet(data = quakes) %>% addTiles() %>%
addMarkers(~long, ~lat, icon = leafIcons)