Boxplot，如何匹配异常值的颜色来填充美学？

Question

我正在尝试将箱线图的异常值颜色与美学 (scale_colour_discrete) 设置的填充颜色相匹配。

这是一个例子。

m <- ggplot(movies, aes(y = votes, x = factor(round(rating)),
    fill=factor(Animation)))
m + geom_boxplot() + scale_y_log10()

这会生成下面的图。如何将那些黑点更改为身体中使用的红色/绿色？如果我理解正确，箱线图的 outlier.colour 选项似乎选择了一种颜色，而不是美学。如果有帮助，我不介意使用色彩美学。

---

编辑：

改编自this solution (Changing whisker definition in geom_boxplot)。 stats_summary 重置了水平闪避，我不知道如何将其恢复。我会根据需要删除异常值和拉伸胡须，因为我现在知道如何操作了。

# define the summary function
f <- function(x) {
  r <- quantile(x, probs = c(0.05, 0.25, 0.5, 0.75, 0.95))
  names(r) <- c("ymin", "lower", "middle", "upper", "ymax")
  r
}
# define outlier function, beyound 5 and 95% percentiles
o <- function(x) {
  subset(x, x < quantile(x,probs=c(0.05))[1] | quantile(x,probs=c(0.95))[1] < x)
}

m <- ggplot(movies, aes(y = votes, x = factor(round(rating)),
    colour=factor(Animation)))
m <- m + stat_summary(fun.data=f, geom='boxplot')
m <- m + stat_summary(fun.y=o, geom='point', aes(colour=factor(Animation)))
m + scale_y_log10()

Answer 1

正如@koshke 所说，现在可以通过设置outlier.colour = NULL 轻松地将异常值着色为框线（而不是填充颜色）：

m <- ggplot(movies, aes(y = votes, x = factor(round(rating)),
    colour = factor(Animation)))
m + geom_boxplot(outlier.colour = NULL) + scale_y_log10()

• outlier.colour 必须写成“ou”
• outlier.colour 必须在 aes () 之外

我将其发布为较晚的答案，因为我发现自己一遍又一遍地查找此问题，并且我还将其发布为相关问题 Coloring boxplot outlier points in ggplot2?。

Answer 2

我找到了一个解决方案，即设置 geom_boxplot(outlier.colour = NULL) 在最新版本的 R 中不再起作用（@jonsnow 谈到 ggplot2 的 1.0.0 版本）。

为了复制@cbeleites 提出的行为，您只需使用以下代码：

update_geom_defaults("point", list(colour = NULL))
m <- ggplot(movies, aes(y = votes, x = factor(round(rating)),
            colour = factor(Animation)))
m + geom_boxplot() + scale_y_log10()

正如预期的那样，这会产生与线条颜色匹配的点。

如果需要绘制多张图，当然要记得恢复默认值：

update_geom_defaults("point", list(colour = "black"))

通过阅读github上的ggplot2 changelog找到解决方案：

geom_boxplot() 的异常值使用默认的颜色、大小和形状 geom_point()。更改 geom_point() 的默认值 update_geom_defaults() 将对异常值应用相同的更改 geom_boxplot()。以前没有更改异常值的默认值 可能的。 （@ThierryO，#757）

也在这里发布：Coloring boxplot outlier points in ggplot2?

Answer 3

我找到了一种方法，即编辑原始网格对象。

library(ggplot2)

match.ol.col <- function(plt,aes.cp='fill') {
  # matches outliers' color to either fill or colour aesthetics
  #   plt: ggplot layer object having boxplot
  #   aes.cp: aetsthetic from which copy color.  must be either 'fill' or 'col'
  # returns grid objects, so print it wigh grid.draw(), not print()
  if (aes.cp %in% c('color', 'colour')) aes.cp <- 'col'
  grob <- ggplotGrob(plt)
  bps <- getGrob(grob, 'boxplots', grep=T)
  for (bp in bps$children) {
    p <- getGrob(bp, 'point', grep=T)
    if (is.null(p)) next
    r <- getGrob(bp, 'rect', grep=T)
    grob <- geditGrob(grob, p$name, gp=gpar(col=r$gp[[aes.cp]]))
  }
  return(grob)
}


m <- ggplot(movies, aes(y = votes, x = factor(round(rating)),
    colour=factor(Animation)))
p <- m + geom_boxplot() + scale_y_log10()

grob <- match.ol.col(p, aes.cp='colour')
grid.draw(grob)

结果：

Answer 4

我有一个非常相似的问题。我想将样式与之前的情节相匹配，所以想要黑色边框和彩色填充，并匹配异常值。

我的解决方案是叠印，一次使用 colour= 和默认的实心圆点，一次使用 fill= 和一个开放的圆点形状

p <- ggplot(mtcars, aes(factor(cyl), mpg))
p + geom_boxplot(aes(colour=factor(cyl))) + 
    geom_boxplot(aes(fill=factor(cyl)), outlier.shape=21)

boxplot with coloured fill, and black borders and median line