如何在leaflet中两个标记之间添加路线（折线）

Question

如何在leaflet中两个标记之间添加路线（折线）

4

我想在这两个点之间添加折线。我该怎么做？

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|

- Ewson Phang

@jazzurro 是的，我也看到了。但是我希望得到像 GPS 一样的路线，但是是在两个标记之间，而不是显示直线。这是可能的吗？还是我问错了问题？ - Ewson Phang

我认为您想要检查googleway软件包。 - jazzurro

https://rdrr.io/cran/googleway/man/add_polylines.html 是类似这样的东西吗？ - Ewson Phang

2个回答

1

这是我的尝试。由于您想在leaflet地图上绘制一些路线，因此希望通过googleway包实现此任务。它允许您使用google_directions()和decode_pl()提取路线数据。由于您有多条路线，因此要使用lapply()创建数据集。一旦您拥有路线数据，您的工作就很简单；您可以在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")

- jazzurro

我可以再问一个问题吗？您提到使用google_directions()和decode_pl()，可以提取路线数据。我该如何实现呢？是通过使用as.numeric(foo)和as.numeric(pl)吗？如果我的问题很傻，请见谅，我是R的新手，特别是对于谷歌地图。 - Ewson Phang

@EwsonPhang 请看一下这个链接：https://cran.r-project.org/web/packages/googleway/vignettes/googleway-vignette.html - jazzurro

@EwsonPhang 看看这个包。你可能能够用这个包完成你的任务。这个包的作者在SO上。如果你联系到他/她，你会得到更多信息。 - jazzurro

fun_check_location(loc [[x]], type) 中的错误：目的地元素必须是经/纬度坐标的数字向量，或者是地址字符串。 - Ewson Phang

df <- google_distance(origins = list(c(41.8674336,-87.6266382), c(41.887544, -87.626487), c(-37.81659, 144.9841)), destinations = c(41.9168862 -87.64847), key = mykey)df <- google_distance（origins = list（c（41.8674336，-87.6266382）， c（41.887544，-87.626487）， c（-37.81659，144.9841））， destinations = c（41.9168862 -87.64847）， key = mykey） - Ewson Phang

@EwsonPhang 你得学会如何使用这个函数。我建议你花些时间去学习你在使用函数时在做什么。 - jazzurro

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- SymbolixAU · Accepted Answer

@jazzurro的回答非常准确，应该保留为被接受的答案。

正如他们所提到的，如果您想要在Google地图上绘制，可以在googleway包内完成所有操作。与使用leaflet的主要区别在于，您不需要解码polyline，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的作者。

这段文字与IT技术无关。