I am trying to overlay some random points and an arc using ggplot2, but can't seem to achieve both