Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
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
You can’t perform that action at this time.