# floweR

[This article was first published on

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

**Ripples**, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

It is the time you have wasted for your rose that makes your rose so important (Antoine de Saint-Exupéry, The Little Prince)

Yesterday I found a package called `circular`

and I could not suppress to do this:

Make your own floweRs:

require(circular) for (i in 1:8) { rose.diag(circular(runif(5000, 0, 2*pi)), bins = (25-round(abs(jitter(0, amount=2*i)))), axes=FALSE, border=rgb(255,50+204*((i-1)/8),50+204*((i-1)/8), alpha=255, max=255), ticks = FALSE, col=rgb(250,0+204*((i-1)/8),0+204*((i-1)/8), alpha=255, max=255), control.circle=circle.control(lty=0), shrink=0.22+(i-1)*(2-0.22)/8) par(new=TRUE) } for (i in 1:150) { q = runif(1)*pi*2 r = sqrt(runif(1)) x = (0.18*r)* cos(q) y = (0.18*r)* sin(q) points(x, y, col = rgb(255 ,sample(80:120, 1), 0, alpha= 95, max=255), bg = rgb(255 ,sample(100:200, 1), 0, alpha= 95, max=255), pch=21, cex=2) }

To

**leave a comment**for the author, please follow the link and comment on their blog:**Ripples**.R-bloggers.com offers

**daily e-mail updates**about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.