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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
#' Create your own discrete scale.
#'
#' @name scale_manual
#' @inheritParams scale_x_discrete
#' @param values a set of aesthetic values to map data values to. If this
#' is a named vector, then the values will be matched based on the names.
#' If unnamed, values will be matched in order (usually alphabetical) with
#' the limits of the scale. Any data values that don't match will be
#' given \code{na.value}.
#' @examples
#' \donttest{
#' p <- qplot(mpg, wt, data = mtcars, colour = factor(cyl))
#'
#' p + scale_colour_manual(values = c("red","blue", "green"))
#' p + scale_colour_manual(
#' values = c("8" = "red","4" = "blue","6" = "green"))
#' # With rgb hex values
#' p + scale_colour_manual(values = c("#FF0000", "#0000FF", "#00FF00"))
#'
#' # As with other scales you can use breaks to control the appearance
#' # of the legend
#' cols <- c("8" = "red","4" = "blue","6" = "darkgreen", "10" = "orange")
#' p + scale_colour_manual(values = cols)
#' p + scale_colour_manual(values = cols, breaks = c("4", "6", "8"))
#' p + scale_colour_manual(values = cols, breaks = c("8", "6", "4"))
#' p + scale_colour_manual(values = cols, breaks = c("4", "6", "8"),
#' labels = c("four", "six", "eight"))
#'
#' # And limits to control the possible values of the scale
#' p + scale_colour_manual(values = cols, limits = c("4", "8"))
#' p + scale_colour_manual(values = cols, limits = c("4", "6", "8", "10"))
#'
#' # Notice that the values are matched with limits, and not breaks
#' p + scale_colour_manual(limits = c(6, 8, 4), breaks = c(8, 4, 6),
#' values = c("grey50", "grey80", "black"))
#' }
NULL
#' @rdname scale_manual
#' @export
scale_colour_manual <- function(..., values) {
manual_scale("colour", values, ...)
}
#' @rdname scale_manual
#' @export
scale_fill_manual <- function(..., values) {
manual_scale("fill", values, ...)
}
#' @rdname scale_manual
#' @export
scale_size_manual <- function(..., values) {
manual_scale("size", values, ...)
}
#' @rdname scale_manual
#' @export
scale_shape_manual <- function(..., values) {
manual_scale("shape", values, ...)
}
#' @rdname scale_manual
#' @export
scale_linetype_manual <- function(..., values) {
manual_scale("linetype", values, ...)
}
#' @rdname scale_manual
#' @export
scale_alpha_manual <- function(..., values) {
manual_scale("alpha", values, ...)
}
manual_scale <- function(aesthetic, values, ...) {
pal <- function(n) {
if (n > length(values)) {
stop("Insufficient values in manual scale. ", n, " needed but only ",
length(values), " provided.", call. = FALSE)
}
values
}
discrete_scale(aesthetic, "manual", pal, ...)
}
|
