This function helps making gray-gradients.
Note : The resulting color gradient does not seem linear to the human eye, you may try gray.colors
instead
transpGraySca(startGray = 0.2, endGrey = 0.8, nSteps = 5, transp = 0.3)
(numeric) gray shade at start
(numeric) gray shade at end
(integer) number of levels
(numeric) transparency alpha
character vector (of same length as x) with color encoding
# NOT RUN {
layout(1:2)
col1 <- wrMisc::transpGraySca(0.8,0.3,7,0.9)
pie(rep(1,length(col1)),col=col1,main="from transpGraySca")
col2 <- gray.colors(7,0.9,0.3,alph=0.9)
pie(rep(1,length(col2)),col=col2,main="from gray.colors")
# }
Run the code above in your browser using DataLab