相关疑难解决方法(0)

我正在制作一张关于从美洲到荷兰的出口的地图.为了可视化我的数据,我想制作一张带有箭头的地图,从美洲国家到荷兰.我使用了cshapes世界地图和ggplot2.

data = data.frame("Country.name" = c("Brazil","USA","Canada","Paraguay","Uruguay"), "lng" =    
c(14.23,37,56.13,-23.44,-32.52), "lat" = c(-51.92,-95.71,-106.34,-58.44,-55.77))

require(cshapes)
cshp.data = cshp(date=as.Date("2012-1-1"), useGW=TRUE)
region.data.frame = fortify(cshp.data, region = "ISO1AL3")

ggplot(region.data.frame) + geom_polygon(aes(long,lat,group=group)) +
geom_segment(data = data, aes(x = lat, y = lng, xend= (5.29 - 0.1 * (5.29 - lat)), yend= (52.13 - 0.1 * (52.13 - lng))),
arrow=arrow(length=unit(0.5,"cm"), angle = 45, type = "closed"))

我发现直线绘制时线条重叠.这很难看.因此,我正在寻找一种方法来绘制ggplot2中坐标之间的曲线,因此它们不会重叠.