25
25
# ' @inheritParams geom_point
26
26
# ' @param geom,stat Use to override the default connection between
27
27
# ' \code{geom_boxplot} and \code{stat_boxplot}.
28
- # ' @param outlier.colour,outlier.shape,outlier.size,outlier.stroke Default
29
- # ' aesthetics for outliers. Set to \code{NULL} to inherit from the aesthetics
30
- # ' used for the box.
28
+ # ' @param outlier.colour,outlier.color,outlier.shape,outlier.size,outlier.stroke
29
+ # ' Default aesthetics for outliers. Set to \code{NULL} to inherit from the
30
+ # ' aesthetics used for the box.
31
+ # '
32
+ # ' In the unlikely event you specify both US and UK spellings of colour, the
33
+ # ' US spelling will take precedence.
31
34
# ' @param notch if \code{FALSE} (default) make a standard box plot. If
32
35
# ' \code{TRUE}, make a notched box plot. Notches are used to compare groups;
33
36
# ' if the notches of two boxes do not overlap, this suggests that the medians
@@ -87,7 +90,8 @@ geom_boxplot <- function(mapping = NULL, data = NULL, stat = "boxplot",
87
90
outlier.shape = 19 , outlier.size = 1.5 ,
88
91
outlier.stroke = 0.5 , notch = FALSE , notchwidth = 0.5 ,
89
92
varwidth = FALSE , na.rm = FALSE ,
90
- show.legend = NA , inherit.aes = TRUE , ... ) {
93
+ show.legend = NA , inherit.aes = TRUE , ... ,
94
+ outlier.color = NULL ) {
91
95
layer(
92
96
data = data ,
93
97
mapping = mapping ,
@@ -97,7 +101,7 @@ geom_boxplot <- function(mapping = NULL, data = NULL, stat = "boxplot",
97
101
show.legend = show.legend ,
98
102
inherit.aes = inherit.aes ,
99
103
params = list (
100
- outlier.colour = outlier.colour ,
104
+ outlier.colour = outlier.color % || % outlier. colour ,
101
105
outlier.shape = outlier.shape ,
102
106
outlier.size = outlier.size ,
103
107
outlier.stroke = outlier.stroke ,
0 commit comments