更改R中line（）的曲率

Question

我正在使用library(geosphere)而我正在密切关注点之间绘制线条。有没有办法让线条曲率更突出？

我希望点之间有曲线弯曲。

我的代码看起来像这样：

 lat_ca <- 39.164141
 lon_ca <- -121.640625
 lat_me <- 45.213004
 lon_me <- -68.906250
 inter <- gcIntermediate(c(lon_ca, lat_ca), c(lon_me, lat_me), n=50, addStartEnd=TRUE)
 lines(inter)