boxplotの上の離散的なx軸に大きなboxplotをオーバーレイする方法は？

Question

私はggplot2を使ってそのようなプロットを生成することができますが、大きなボックスはxの全範囲をカバーしておらず、データの最初と最後のセットを除外して解釈するので混乱します。 geom_boxplotは、aes(group=1)と一緒に使用すると、width=引数に応答しません。例を以下に示します。

library(ggplot2) 
p <- ggplot(mpg, aes(class, hwy)) 
p +geom_boxplot()+geom_boxplot(aes(group=1),width=0.1,col="red",fill=NA) 

私もggplot2 github repositoryに問題を開きました。

Answer 1

グループ化せず、代わりに数値x値を使用します。

nlevels <- length(unique(mpg$class)) 

ggplot(mpg, aes(class, hwy)) 
    geom_boxplot()+ 
    geom_boxplot(aes(x = median(1:nlevels)), width = nlevels, col = "red", fill = NA)