r - 使用 R 的传单包添加弯曲的飞行路径

Question

目前，我可以使用以下代码在国家/地区之间画一条直线:

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

我想要制作的是更真实的飞行路径，其中直线实际上是弯曲的。与此类似:



为了这个问题，我想在 Leaflet中调整答案。包裹。任何帮助将非常感激。

Answer 1

跟进 mrub，只需将从 gcIntermediate 获得的对象传递给传单。像这样:

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