STSM networking

library(tidyverse)
#https://r-graph-gallery.com/how-to-draw-connecting-routes-on-map-with-r-and-great-circles.html

# World map is available in the maps package
library(maps)
library(geosphere)
library(readxl)
library(png)

# No margin
par(mar=c(0,0,0,0))

# World map focused on europe
map('world',
    col="#f2f2f2", fill=TRUE, bg="white", lwd=0.05,
    mar=rep(0,4),border=0, ylim=c(30,65), xlim=c(-10, 45) 
)


# Data

baza <- read_excel("Baza.xlsx")

#add points to map
points(x=baza$Flong, y=baza$Flat, col="slateblue", cex=2, pch=20)

points(x=baza$Wlong, y=baza$Wlat, col="violetred2", cex=2, pch=20)


#add lines - first long then lat

for (i in 1:nrow(baza)) {
inter <- gcIntermediate(c(as.numeric(baza[i,5]), as.numeric(baza[i,4])),  c(as.numeric(baza[i,8]), as.numeric(baza[i,7])), n=50, addStartEnd=TRUE, breakAtDateLine=F)

# Show this connection
lines(inter, col="slateblue", lwd=1)
}

#p=recordPlot()
#p