Skip to content

Instantly share code, notes, and snippets.

@wabarr
Last active August 29, 2015 14:23
Show Gist options
  • Save wabarr/850c230762814ea9b086 to your computer and use it in GitHub Desktop.
Save wabarr/850c230762814ea9b086 to your computer and use it in GitHub Desktop.
celebratory rainbow
library(plotrix)
cols <- c(rainbow(6),"white")
radii <- seq(from=1, to=0.5, length.out = length(cols))
plot(0,0,ylim=c(0,9), type = "n")
lapply(1:length(cols), FUN=function(index){
draw.circle(0,0,radius=radii[index], col=cols[index])
})
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment