R/ColorRainbow.r

In einaooka/tea.eo.plots: TEA's plotting functions

#' @title Rainbow Palette with Transparency Index
#'
#' @description 12 rainbow colors
#'
#' @param idx Color index: 1.tomato, 2.pumpkin, 3.orange, 4.lemon, 5.lime, 6.lettuce, 7.cucumber, 8.lightblue, 9.blue, 10.blueberry, 11.eggplant, 12.grape
#' @param alpha Transparency index (0-1).
#'
#' @seealso \url{http://websafecolorcodes.com/color-tones/rainbow-color-tones/}
#' @seealso \code{\link{gray.f}}
#'
#' @examples
#'   rainbow.f(1,0.5)
#'
#' @export rainbow.f
#'

rainbow.f <- function(idx,alpha){
  rainbow <- c(rgb(201/255, 31/255, 22/255, alpha), # tomato
               rgb(217/255,88/255,14/255,alpha), # pumpkin
               rgb(230/255,134/255,1/255,alpha), # orange
               rgb(252/255,207/255,3/255,alpha), # lemon
               rgb(143/255,187/255,12/255,alpha), # lime
               rgb(71/255,164/255,30/255,alpha), # lettuce
               rgb(8/255,131/255,67/255,alpha), # cucumber
               rgb(8/255,148/255,182/255,alpha), # lightblue
               rgb(3/255,99/255,163/255,alpha), # blue
               rgb(17/255,50/255,121/255,alpha), # blueberry
               rgb(29/255,18/255,89/255,alpha), # eggplant
               rgb(91/255,11/255,90/255,alpha) # grape
  )
  return(rainbow[(idx-1)%%12+1])
}