# generate random points
set.seed(0)
example <- rpsphere(10, output="polar")
# plotting
plot(NULL, NULL, xlim=c(-180, 180), ylim=c(-90,90))
points(example)
text(label=1:nrow(example), example, pos=2)
arcs(example, col="red", breaks=200)
Run the code above in your browser using DataLab