Rainbow

Tips

Description

Function

pdf(file="rainbow.pdf", width=10, height=10)
  n <- 100
  pie(
    rep(1,n),
    labels=c((1:(n-1))/n, "0, 1"),
    col=rainbow(n),
    border=NA,
    main = "Rainbow Percentages",
    cex=.7
  )
dev.off()