r - 不要丢弃零计数 : dodged barplot

Question

我正在 ggplot2 中制作一个躲避条形图，一个分组的计数为零，我想显示。我记得在 HERE 上看到过这个前阵子想通了 scale_x_discrete(drop=F)会工作。它似乎不适用于躲避条。我怎样才能显示零计数？

例如，(下面的代码)在下图中，type8~group4 没有示例。我仍然希望绘图显示零计数的空白空间，而不是消除条形。我怎样才能做到这一点？

mtcars2 <- data.frame(type=factor(mtcars$cyl), 
    group=factor(mtcars$gear))

m2 <- ggplot(mtcars2, aes(x=type , fill=group))
p2 <- m2 + geom_bar(colour="black", position="dodge") +
        scale_x_discrete(drop=F)
p2

Answer 1

我知道的唯一方法是预先计算计数并添加一个虚拟行:

dat <- rbind(ddply(mtcars2,.(type,group),summarise,count = length(group)),c(8,4,NA))

ggplot(dat,aes(x = type,y = count,fill = group)) + 
    geom_bar(colour = "black",position = "dodge",stat = "identity")

我认为使用 stat_bin(drop = FALSE,geom = "bar",...)相反会起作用，但显然它不起作用。