r - ggplot 箱线图中缺失值的箱宽一致

Question

在 ggplot2 中，即使不存在给定的级别组合，我也希望箱形图中的框具有相同的宽度。

例如，在 mtcars 中，cyl=8 和 gear=4 不存在，这导致该图中的条形变大：

qplot(data=mtcars, x=as.factor(cyl), y=mpg,
      colour=as.factor(gear), geom="boxplot")

对于条形图，使用这些级别组合的 NA 值填充我们的数据框可以解决问题，但对于箱线图则不行：

mtcars.fill <- data.frame(cyl=8,gear=4,mpg=NA)
mtcars <- rbind.fill(mtcars,mtcars.fill)

qplot(data=mtcars, x=as.factor(cyl), y=mpg, colour=as.factor(gear), geom="boxplot")

Warning message:
Removed 1 rows containing non-finite values (stat_boxplot). 

这导致完全相同的情节。

stat_boxplot 有一个 na 值的参数，但默认情况下它设置为不删除 NA：

na.rm = FALSE

Answer 1

我能提供的最好的方法是使用facet_grid(). 这具有额外的好处，即来自geom_point()图层的点将与箱线图对齐。

library(ggplot2)

plot1 = ggplot(mtcars, aes(x=factor(gear), y=mpg, colour=factor(gear))) +
        geom_boxplot(space=0) + 
        facet_grid(. ~ cyl, labeller="label_both")

plot2 = plot1 + geom_point()

library(gridExtra)
ggsave(filename="plots.png", plot=arrangeGrob(plot1, plot2, ncol=2), 
       width=10, height=4, dpi=120)