2017-08-04 1 views
1

Je suis en mesure de récupérer une carte de direction avec le Rscript ci-dessous, mais je suis incapable de trouver une fonction pour le rendre interactif.Cartes de direction interactives dans R

longitude <- c(77.605855,77.606800,77.596843,77.575793) 
latitude <- c(12.956580,12.966157, 12.964777,12.964473) 
d <- as.data.frame(cbind(longitude,latitude)) 
map <- get_googlemap(center = c(lon = 77.605855, lat = 12.956580), zoom = 14, 
      size = c(500, 500), scale = 2,maptype = c("roadmap"),markers = d, path = d) 

Voici les fonctionnalités que je dois posséder sur ma carte.
1. Zoom interactif.
2. Centre automatique pour que tous les repères soient visibles.
3. OnClick sur le marqueur Je voudrais montrer titre-say pour Eg. "C'est ta voiture".

+0

Vous pourriez être intéressé par cet [post] (https://stackoverflow.com/questions/32164452/dynamic-plotting-using-ggmap-package-in-r) – Prem

+0

Voir ma [réponse ici] (https://stackoverflow.com/a/42034607/5977215) – SymbolixAU

+0

@SymbolixAU Merci pour la solution, mais mon problème est que je n'ai pas «Origine» et «destination», tout ce que j'ai est un ensemble de «Lat & Lon» où le véhicule a voyagé et j'ai besoin de tracer les directions en conséquence. Quel serait le travail pour remplacer "Origine et Destination" par "Lat & Lon"? – Tareva

Répondre

1

La documentation leaflet référée par @SymbolixAU aux commentaires m'a aidé à arriver à la solution, ci-dessous est mon code pour répondre à mes exigences mentionnées dans la question.

library(leaflet) 

longitute <-c(77.605855,77.606800,77.596843,77.596747,77.596296,77.595738,77.594944) 
latitude <- c(12.956580,12.966157, 12.964777,12.964323,12.963570,12.962964, 12.962399) 
d <- as.data.frame(cbind(longitute,latitude)) 
m <- leaflet() %>% 
addTiles() %>% # Add default OpenStreetMap map tiles 
addMarkers(lng=d$longitute, lat=d$latitude, popup="New Point",) 
m<- addPolylines(m , lng = d$longitute, lat = d$latitude) 
m 

Donc c'est ma sortie.
enter image description here