prct <- seq(0, 1, by=0.1)
plot(x = rep(1,length(prct)), y = prct,
col = getColoursPercentage(prct), pch = 19, cex = 3)
plot(x = rep(1,length(prct)), y = prct,
col = getColoursPercentage(prct, ClrRamp = "Greys"), pch = 19, cex = 3)
Run the code above in your browser using DataLab