I constructed this figure and with the following R code
ggplot(data = sc, aes(x = x, y = y))
+ geom_polygon(aes(fill = fill))
+ geom_point(data = leeu, aes(x = x, y = y))
+ coord_cartesian(xlim = c(-1000, 1000), ylim = c(-100, 1200))
but I would like to add black lines as in the picture below.
The lines start at center of circle and pass through each black point. How can I construct the lines?