使用long / lat在两个国家/地区之间的ggmap图上绘制线条

Question

我是R的新手，我想在两个国家之间划一条线（可能是加权，例如按行程次数计算）。目前，我使用经度和纬度为每个大写绘制一条线，但我想使用包ggmap来做。我环顾四周，但到目前为止还没有找到任何解决方案。我很感激快速的帮助。

    require(ggmap)
    require (rworldmap)

    all_content = readLines("ext_lt_intratrd_1_Data.csv")
    skip_second = all_content[-2]
    dat = read.csv(textConnection(skip_second), header = TRUE, stringsAsFactors =F)
    dat[5,2]<- c("Germany") # using a data where the first line is
                             header, but second line must be skipped as it is EU 27
                             and not a single country
    europe <- read.csv("eulonglat.csv", header = TRUE) # using world capitals to 
    generate points
    myfulldata <- merge(dat, europe)
    map <- get_map(location = 'Europe', zoom = 4)
    mapPoints <- ggmap(map) + geom_point(aes(x = UNc_longitude, y = UNc_latitude, size 
    = log(myfulldata$Value)), data = myfulldata, col = "red", alpha= 0.5) # this can 
    be plotted
    # i would continue with drawing line and i searched for references
    # i found arrows(42.66,23.34,50.82,4.47) - which did not work 
    # i tried to look for a reference work more, but could not find
    # instead i found it using with the package rworldmap the following
   lines(c(4.47, 23.32), c(50.82, 42.66))
    # this does not work on ggmap