如何使用Leaflet将两条独立的路线连接起来？

Question

观察	原产地	起源长	结束纬度	结束长
A	31.36445	121.60415	33.7372	-118.22531
A	41.3459	2.17599	20.14076	57.48244

这些是坐标。当我选择 A 时，它只是将所有点连接在一起。我希望前两个点以及第二个点分别连接。

leaflet() %>%
      addTiles() %>%
      addCircleMarkers(
        lng = c(originLong, endLong),
        lat = c(originlat, endLat)
      ) %>%
      addPolylines( lng = c(originLong, endLong),
                    lat = c(originlat, endLat))})

Answer 1

我已将数据保存在名为

df

的数据框中。为了在

leaflet

地图中显示多条线，您可以循环数据框中的值并从内部调用

addPolyLines()

。

代码将如下所示：

map <- leaflet() %>%
  addTiles() %>%
  addCircleMarkers(
    lng = c(df$originLong, df$endLong),
    lat = c(df$originlat, df$endLat)
  ) 

for (i in 1:nrow(df)) {
  map <- map %>% addPolylines(lng = c(df[i,]$originLong, df[i,]$endLong),
                              lat = c(df[i,]$originlat, df[i,]$endLat))
}

输出将如下所示：