r - 経度/緯度を使用して2国間のggmapプロットに線を引く

Question

私はまったくの初心者でR、2 つの国の間に線を引きたいと思います (たとえば、旅行の回数などで重み付けすることができます)。現在、各首都の経度と緯度を使用して線を引いていますが、パッケージ 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