リーフレットの2つのマーカー間にルート（ポリライン）を追加する方法

Question

これらの2点の間にポリラインを追加したいと思います。これどうやってするの？

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 

データの例。

| 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

これは私の試みです。リーフレットマップにいくつかのルートを描きたいので、googlewayパッケージを使ってこのタスクを達成したいと考えています。 google_directions()とdecode_pl()を使用してルートデータを抽出することができます。複数のルートがあるので、lapply()を使用してデータセットを作成します。ルートデータを取得したら、仕事は簡単です。 addPolylines()のデータを使用します。 jazzurroの答え@

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

スポットオンであるので、それは受け入れ答えままにしてください。

Googleマップをプロットしたい場合は、googlewayパッケージ内でこれをお伝えください。リーフレットを使用する主な違いは、ポリラインをデコードする必要がないことです.Googleマップでエンコードされた文字列を処理できます。

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") 

---

注：私はgooglewayの作者です。