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)
}

Related

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 on topics such as:

Data science ,

Big Data, R jobs , visualization (

ggplot2 ,

Boxplots ,

maps ,

animation ), programming (

RStudio ,

Sweave ,

LaTeX ,

SQL ,

Eclipse ,

git ,

hadoop ,

Web Scraping ) statistics (

regression ,

PCA ,

time series ,

trading ) and more...

If you got this far, why not

subscribe for updates from the site? Choose your flavor:

e-mail ,

twitter ,

RSS , or

facebook ...