Wenn Markierungen auf einer interaktiven Weltkarte aus den Daten der Packungsbeilage mit genau den gleichen Koordinaten geplottet werden, überlappen sie sich.

Sehen Sie sich das folgende Beispiel an:

library(leaflet)

Data <- structure(list(Name = structure(1:3, .Label = c("M1", "M2", "M3"), class = "factor"), Latitude = c(52L, 52L, 51L), Longitude = c(50L, 50L, 50L), Altitude = c(97L, 97L, 108L)), .Names = c("Name", "Latitude", "Longitude", "Altitude"), class = "data.frame", row.names = c(NA, -3L))

leaflet(data = Data) %>% 
              addProviderTiles("Esri.WorldImagery", options = providerTileOptions(noWrap = TRUE)) %>%
              addMarkers(~Longitude, ~Latitude, popup = ~as.character(paste(sep = "",
                                                                          "<b>",Name,"</b>","<br/>", "Altitude: ",Altitude)))

Es gibt eine Möglichkeit, alle Koordinaten mit der Cluster-Option anzuzeigen, aber das ist weit von meinem Ziel entfernt. Ich möchte keine Cluster und nur die überlappenden Marker werden angezeigt, wenn sie vollständig vergrößert sind. Wenn die Hintergrundkarte vollständig vergrößert ist, wird sie grau ("Kartendaten noch nicht verfügbar"). Die Spinnenansicht der überlappenden Markierungen ist das, was ich will, aber nicht, wenn es vollständig vergrößert ist.

Siehe Beispiel unten:

leaflet(data = Data) %>% 
  addProviderTiles("Esri.WorldImagery", options = providerTileOptions(noWrap = TRUE)) %>%
  addMarkers(~Longitude, ~Latitude, popup = ~as.character(paste(sep = "",
                                                                "<b>",Name,"</b>","<br/>", "Altitude: ",Altitude)), clusterOptions = markerClusterOptions())

Ich habe Literatur zu der gewünschten Lösung gefunden, weiß aber nicht, wie ich sie in der Packungsbeilage implementieren soll.https: //github.com/jawj/OverlappingMarkerSpiderfier-Leafle

Auch wenn es andere Ansätze gibt, mit überlappenden Markern umzugehen, können Sie gerne antworten. (zum Beispiel mehrere Markierungsinformationen in einem Popup)