使用R的Leaflet Package添加弯曲的飞行路径

Question

目前,我可以使用以下代码在国家/地区之间绘制直线:

library(leaflet) 
leaflet() %>% addTiles() %>% addPolylines(lat=c(38.8833, 35.00), lng=c(-77.0167, 103.00))

我想要产生的是更真实的飞行路径,其中直线实际上是弯曲的.与此类似:

为了这个问题,我想在Leaflet包中定制答案.任何帮助将非常感激.

Answer 1

跟进mrub,只需将你从gcIntermediate获得的对象传递给leaflet.这样的事情:

library(leaflet)
library(geosphere)
gcIntermediate(c(5,52), c(-120,37),
               n=100, 
               addStartEnd=TRUE,
               sp=TRUE) %>% 
leaflet() %>% 
addTiles() %>% 
addPolylines()