/
palettes.R
60 lines (47 loc) · 1.46 KB
/
palettes.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
#' Color palettes used in incidence
#'
#' These functions are color palettes used in incidence.
#'
#' @author Thibaut Jombart \email{thibautjombart@@gmail.com}
#'
#' @param n a number of colors
#'
#' @rdname palettes
#' @aliases palettes incidence_pal1 incidence_pal1_light incidence_pal1_dark
#'
#' @export
#' @importFrom grDevices colorRampPalette
#'
#' @examples
#'
#' plot(1:4, cex=8, pch=20, col = incidence_pal1(4),
#' main = "palette: incidence_pal1")
#' plot(1:100, cex=8, pch=20, col = incidence_pal1(100),
#' main ="palette: incidence_pal1")
#' plot(1:100, cex=8, pch=20, col = incidence_pal1_light(100),
#' main="palette: incidence_pal1_light")
#' plot(1:100, cex=8, pch=20, col = incidence_pal1_dark(100),
#' main="palette: incidence_pal1_dark")
#'
incidence_pal1 <- function(n){
if(!is.numeric(n)) stop("n is not a number")
colors <- c("#aa3939", "#4a6a8a", "#d4aa6a","#499371")
if (n < 4) return(colors[1:n])
return(colorRampPalette(colors)(n))
}
#' @export
#' @rdname palettes
incidence_pal1_light <- function(n){
if(!is.numeric(n)) stop("n is not a number")
colors <- c("#d46a6a", "#738ca6", "#ffddaa","#76b096")
if (n < 4) return(colors[1:n])
return(colorRampPalette(colors)(n))
}
#' @export
#' @rdname palettes
incidence_pal1_dark <- function(n){
if(!is.numeric(n)) stop("n is not a number")
colors <- c("#801515", "#2b4c6f", "#aa7d39","#277552")
if (n < 4) return(colors[1:n])
return(colorRampPalette(colors)(n))
}