#' Color palettes used in vimes
#'
#' These functions are color palettes used in vimes.
#'
#' @author Thibaut Jombart \email{thibautjombart@@gmail.com}
#'
#' @param n a number of colors
#'
#' @rdname palettes
#' @aliases palettes vimes_pal1 vimes_pal2
#'
#' @export
#' @importFrom grDevices colorRampPalette
#'
#' @examples
#'
#' plot(1:4, cex=8, pch=20, col=vimes_pal1(4), main="vimes_pal1")
#' plot(1:20, col=vimes_pal1(20), pch=20, cex=6, main="vimes_pal1")
#' plot(1:10, col=vimes_pal2(10), pch=20, cex=6, main="vimes_pal2")
## These color palettes have non-standard behaviour. They are based on
## 'xxx' colors. If the number of colors requested is less than 'xxx'
## then colors used to define the palette are used. If 'xxx' exceeds
## the number of colors of the palette, then we use color
## interpolation.
vimes_pal1 <- function(n){
colors <- c("#ff6666", "#666699")
if (n<length(colors)) {
return(colors[seq_len(n)])
} else {
return(colorRampPalette(colors)(n))
}
}
#' @rdname palettes
#' @export
vimes_pal2 <- function(n){
colors <- c("#ccddff", "#79d2a6", "#ffb3b3",
"#a4a4c1","#ffcc00", "#ff9f80",
"#ccff99", "#df9fbf","#ffcc99",
"#cdcdcd")
if (n<length(colors)) {
return(colors[seq_len(n)])
} else {
return(colorRampPalette(colors)(n))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.