ggplot2中boxplot下方/上方的不同颜色

Question

出于某种原因，我希望中间条上方和下方的颜色具有不同的颜色。有没有一种简单的方法来实现这一目标？

library(datasets) 
library(ggplot2)
data(airquality)
airquality$Month <- factor(airquality$Month,
                           labels = c("May", "Jun", "Jul", "Aug", "Sep"))
ggplot(airquality, aes(x = Month, y = Ozone, fill=Month)) +  
  geom_boxplot()

我看到了类似polygen和boxplot的另一个功能，但我想留下ggplot

好的评论我有点想出去哪里，但我坚持执行。我需要从图形坐标建立点。但这很乏味。

  

g＆lt; -ggplot（airquality，aes（x =月，y =臭氧，填充=月））+
  geom_boxplot（）

     

coords＆lt; -ggplot_build（g）$ data＃use ggbuild获取大纲   co-ords d＆lt; -coords [1]＃这得到一个df   可用的表单组＆lt; -unique（d $ group）＃获取唯一的   “小提琴”ids名称（d）

     

testdf＆lt; -rbind（data.frame（x = d $ x，y = c（d $ middle，d $ upper，d $ lower）），                 data.frame（x = d $ xmin，y = c（d $ middle，d $ upper，d $ lower）），                 data.frame（x = d $ xmax，y = c（d $ middle，d $ upper，d $ lower）））

     

ggplot（testdf）+ geom_point（AES（X = X，Y = Y））

使用geom_polygone我需要有正确的顺序来创建5 * 9坐标的数据框，然后我还需要一个低于和高于中位数的分组变量。有人有一个很好的解决方案吗？我会非常手动