Support US spelling: outlier.color.

Fixes #1455

Author: hadley

NEWS.md

@@ -1,5 +1,7 @@
 # ggplot2 2.0.0.9000
 
+* `geom_boxplot()` now understands `outlier.color` (#1455).
+
 * `geom_histgram(bins = n)` now gives a histogram with `n` bins, not `n + 1`
   (#1487).
 

R/geom-boxplot.r

@@ -25,9 +25,12 @@
 #' @inheritParams geom_point
 #' @param geom,stat Use to override the default connection between
 #'   \code{geom_boxplot} and \code{stat_boxplot}.
-#' @param outlier.colour,outlier.shape,outlier.size,outlier.stroke Default
-#'   aesthetics for outliers. Set to \code{NULL} to inherit from the aesthetics
-#'   used for the box.
+#' @param outlier.colour,outlier.color,outlier.shape,outlier.size,outlier.stroke
+#'   Default aesthetics for outliers. Set to \code{NULL} to inherit from the
+#'   aesthetics used for the box.
+#'
+#'   In the unlikely event you specify both US and UK spellings of colour, the
+#'   US spelling will take precedence.
 #' @param notch if \code{FALSE} (default) make a standard box plot. If
 #'   \code{TRUE}, make a notched box plot. Notches are used to compare groups;
 #'   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",
                          outlier.shape = 19, outlier.size = 1.5,
                          outlier.stroke = 0.5, notch = FALSE, notchwidth = 0.5,
                          varwidth = FALSE, na.rm = FALSE,
-                         show.legend = NA, inherit.aes = TRUE, ...) {
+                         show.legend = NA, inherit.aes = TRUE, ...,
+                         outlier.color = NULL) {
   layer(
     data = data,
     mapping = mapping,
@@ -97,7 +101,7 @@ geom_boxplot <- function(mapping = NULL, data = NULL, stat = "boxplot",
     show.legend = show.legend,
     inherit.aes = inherit.aes,
     params = list(
-      outlier.colour = outlier.colour,
+      outlier.colour = outlier.color %||% outlier.colour,
       outlier.shape = outlier.shape,
       outlier.size = outlier.size,
       outlier.stroke = outlier.stroke,

man/geom_boxplot.Rd

@@ -0,0 +1,9 @@
+context("geom_boxplot")
+
+test_that("can use US spelling of colour", {
+  df <- data.frame(x = 1, y = c(1:5, 100))
+  plot <- ggplot(df, aes(x, y)) + geom_boxplot(outlier.color = "red")
+
+  gpar <- layer_grob(plot)[[1]]$children[[1]]$children[[1]]$gp
+  expect_equal(gpar$col, "#FF0000FF")
+})