我希望使用R语言的leaflet库绘制从滑铁卢到台湾的路线图。路线的坐标是使用geosphere的gcIntermediate函数获得的。然而,由于路线涉及跨越国际日期变更线,因此路线在地图边缘处被切断,并在顶部以直线连接。
我得到的图表: 错误的地图
我想要的图表: 理想地图
有可能可以使用Google地图解决这个问题,但是否有方法使用leaflet解决呢?我应该如何修改下面的代码以获得理想的路线?谢谢!library(dplyr)
library(leaflet)
library(geosphere)
# Source
latWaterloo <- 43.46687
lngWaterloo <- -80.52464
# Destination
latTaiwan <- 23.5983
lngTaiwan <- 120.8354
m <- leaflet() %>% addTiles()
m <- addCircleMarkers(m, lng=c(lngWaterloo, lngTaiwan) , lat=c(latWaterloo, latTaiwan), popup=c("Waterloo","Taiwan"), radius=5, opacity=0.5)
geo_lines <- gcIntermediate(c(lngWaterloo, latWaterloo), c(lngTaiwan, latTaiwan), n=100, addStartEnd=T, sp=T, breakAtDateLine=F)
m <- addPolylines(m, data=geo_lines, color="blue")
m
m <- leaflet() %>% addTiles()
m