Vários marcadores na mesma coordenada
Ao plotar marcadores em um worlmap interativo a partir dos dados do folheto da embalagem r com exatamente as mesmas coordenadas, se sobrepõem.
Veja o exemplo abaixo:
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)))
Existe a possibilidade de mostrar todas as coordenadas com a opção de cluster, mas isso está longe do meu objetivo. Não quero clusters e apenas os marcadores sobrepostos são mostrados quando o zoom é ampliado completamente. Quando o zoom total do mapa em segundo plano fica cinza ("Dados do mapa ainda não estão disponíveis"). A vista da aranha dos marcadores sobrepostos é o que eu quero, mas não quando totalmente ampliada.
Veja o exemplo abaixo:
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())
Encontrei algumas informações sobre a solução que eu queria, mas não sei como implementá-la no código / pacote do folheto r.https://github.com/jawj/OverlappingMarkerSpiderfier-Leaflet
Além disso, se houver outras abordagens para lidar com marcadores sobrepostos, fique à vontade para responder. (por exemplo, várias informações de marcadores em um pop-up)