如何在箱线图顶部的离散 x 轴上叠加更大的箱线图?

How to overlay a bigger boxplot across a discrete x-axis on top a boxplot?

我可以使用 ggplot2 生成这样的图,但它有点令人困惑,因为较大的框并没有覆盖 x 的整个范围,人们将其解释为排除了第一组和最后一组数据。当与 aes(group=1) 一起使用时,geom_boxplot 不响应 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 中打开了一个问题。

改用数字 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)