Ich habe eine R Shiny-App, die mithilfe von Leaflet eine interaktive Karte erstellt. Auf dieser Karte wird eine kategoriale Variable verwendet, um verschiedene Arten von Punkten zu kennzeichnen. Sie wird mithilfe von benutzerdefinierten Markierungen (je nach Faktorstufe unterschiedliche Symbole) visualisiert.

Ich möchte dem Plot eine Legende hinzufügen, aber die Legende zeigt die verschiedenen Markierungssymbole anstelle von Volltonfarben. Daslegends Tutorial deckt dies nicht ab.

Ich bin auf ein anderes @ gestoßSO Antwort, die dieses @ zu lösen schei - aber es wurde in JavaScript gemacht und ich bin nicht sicher, wie ich es übersetzen soll / ob es in R funktionieren soll. Weiß jemand, wie man das macht?

Ein einfaches reproduzierbares Beispiel:

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)