Gravity, release me, and don’t ever hold me down, now my feet won’t touch the ground (Coldplay, Life In Technicolor II)

Inspired by this nice post and by this cover of a Coldplay’s album:

I have dared to do this using ggplot, polar coordinates and Google Fonts :

Coldplay: feel free to use it for some future album.

library(ggplot2)
library(extrafont)
windowsFonts(Monoton=windowsFont("Monoton"))
butterfly=function(x) 8-sin(x)+2*sin(3*x)+2*sin(5*x)-sin(7*x)+3*cos(2*x)-2*cos(4*x)
opt=theme(legend.position="none",
panel.background = element_rect(fill="black"),
panel.grid = element_blank(),
axis.ticks=element_blank(),
axis.title=element_blank(),
axis.text =element_blank())
ggplot(data.frame(x = c(0, 2*pi)), aes(x)) +
stat_function(fun=butterfly, geom="density", fill="#FC0C54", colour="#FC0C54") +
coord_polar(start=-pi)+
geom_text(x=.5, y=-14, colour="turquoise2", family="Monoton", label="COLDPLAY", size=12)+
geom_text(x=1.5, y=14, colour="turquoise2", family="Monoton", angle=90, label="Up Down Up Down Up Down", size=6)+
opt

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 ...