So fügen Sie Routen (Polylinien) zwischen zwei Markierungen in der Broschüre hinzu

Question

Ich möchte die Polylinie zwischen diesen beiden Punkten hinzufügen. Wie kann ich das machen?

m <- leaflet() %>% 
    addPolylines() %>% 
    addTiles() %>% # Add default OpenStreetMap map tiles 
    addMarkers(lng = -87.6266382, lat = 41.8674336, 
       popup = "starting") %>% 
    addMarkers(lng = -87.64847, lat = 41.9168862, 
       popup = "Destination") 

m # Print the map 

Beispiel für die Daten.

| region  | from_lat | from_long | to_lat  | to_long | 
|-------------|------------|------------- |-------------|----------- | 
| 1   | 41.8674336 | -87.6266382 | 41.887544 | -87.626487 | 
| 2   | 41.8674336 | -87.6266382 | 41.9168862 | -87.64847 | 
| 3   | 41.8674336 | -87.6266382 | 41.8190937 | -87.6230967| 

Answer 1

Hier ist mein Versuch. Da Sie einige Routen auf einer Prospektkarte zeichnen möchten, möchten Sie diese Aufgabe über das Paket googleway erreichen. Sie können Routendaten mit google_directions() und decode_pl() extrahieren. Da Sie mehrere Routen haben, möchten Sie lapply() verwenden und einen Datensatz erstellen. Sobald Sie die Routendaten haben, ist Ihre Aufgabe unkompliziert. Sie verwenden die Daten in addPolylines().

library(dplyr) 
library(googleway) 
library(leaflet) 

mydf <- data.frame(region = 1:3, 
        from_lat = 41.8674336, 
        from_long = -87.6266382, 
        to_lat = c(41.887544, 41.9168862, 41.8190937), 
        to_long = c(-87.626487, -87.64847, -87.6230967)) 

mykey <- "you need to have your API key here" 

lapply(1:nrow(mydf), function(x){ 

    foo <- google_directions(origin = unlist(mydf[x, 2:3]), 
          destination = unlist(mydf[x, 4:5]), 
          key = mykey, 
          mode = "driving", 
          simplify = TRUE) 

    pl <- decode_pl(foo$routes$overview_polyline$points) 

    return(pl) 

     } 
    ) %>% 
bind_rows(.id = "region") -> temp 


m <- leaflet() %>% 
    addProviderTiles("OpenStreetMap.Mapnik") %>% 
    addPolylines(data = temp, lng = ~lon, lat = ~lat, group = ~region) %>% 
    addMarkers(lng = -87.6266382, lat = 41.8674336, 
       popup = "starting")%>% 
    addMarkers(data = mydf, lng = ~to_long, lat = ~to_lat, 
       popup = "Destination") 

Answer 2

@ Antwort des jazzurro ist spot-on so sollte, dass die akzeptierte Antwort bleiben.

Wie schon angedeutet, können Sie dies alles innerhalb des googleway Pakets tun, wenn Sie eine Google Map erstellen und plotten möchten. Der Hauptunterschied zur Verwendung der Broschüre besteht darin, dass Sie die Polylinie nicht dekodieren müssen, da Google Map die codierte Zeichenfolge für Sie verarbeiten kann.

polylines <- lapply(1:nrow(mydf), function(x){ 

    foo <- google_directions(origin = unlist(mydf[x, 2:3]), 
          destination = unlist(mydf[x, 4:5]), 
          key = apiKey, 
          mode = "driving", 
          simplify = TRUE) 

    ## no need to decode the line, just return the string as-is 
    foo$routes$overview_polyline$points 
} 
) 

df <- data.frame(polylines = unlist(polylines), stringsAsFactors = F) 

## add some colour values for the markers 
mydf$colour_from <- "red" 
mydf$colour_to <- "blue" 

## plot the polylines and the markers 
google_map(key = mapKey) %>% 
    add_markers(data = mydf, lat = "from_lat", lon = "from_long", colour = "colour_from") %>% 
    add_markers(data = mydf, lat = "to_lat", lon = "to_long", colour = "colour_to") %>% 
    add_polylines(data = df, polyline = "polylines") 

---

Hinweis: Ich bin der googleway Autor.