library(maps) library(mapdata) test<-data.frame(Authors=(letters[1:9]), LAT=runif(9,-90,90), LONG=runif(9,-180,180)) map('worldHires') text(test$LONG,test$LAT,labels=1:9, col="red", font=2) legend("bottom",legend=test$Authors, col="red", pch=as.character(1:9), bg="white", ncol=3)
Use text instead of points (you can use points , but you will need to choose pch=as.character(1:9) ). Here I added the argument font=2 so that they are highlighted in bold, which makes them more legible.
Then the creation of the legend is quite straightforward.

source share