RG#49 : Sunflower plot

# data
set.seed(1233) 
x <- round (runif(1500, 0, 40),0)

y <- round (runif (1500, 0, 100),0)

plot (x,y, pch = 21)

sunflowerplot(x,y, pch = 19, col = "gray80", cex = 1, cex.fact = 1, size = .08, seg.lwd = .8 )