geoplot()
Arrow(list(lat=c(65,65.5),lon=c(-19, -18)),angle=60,col="brown")
Arrow(list(lat=c(65,65.5),lon=c(-19, -18)),angle=45,col="red")
Arrow(list(lat=c(65,65.5),lon=c(-19, -18)),angle=30,col="green")
Arrow(list(lat=c(65,65.5),lon=c(-19, -18)),angle=30,col="blue")
Run the code above in your browser using DataLab