ggplot2保持未使用的水平barplot

我想在我的条形图中绘制未使用的级别（也就是计数为0的级别），但是，未使用的级别会丢失，我无法弄清楚如何保留它们

df <- data.frame(type=c("A", "A", "A", "B", "B"), group=rep("group1", 5)) df$type <- factor(df$type, levels=c("A","B", "C")) ggplot(df, aes(x=group, fill=type)) + geom_bar() 

在上面的例子中，我想看到C绘制计数为0，但它是完全没有…

感谢任何帮助Ulrik

编辑：

这是我想要的

 df <- data.frame(type=c("A", "A", "A", "B", "B"), group=rep("group1", 5)) df1 <- data.frame(type=c("A", "A", "A", "B", "B", "A", "A", "C", "B", "B"), group=c(rep("group1", 5),rep("group2", 5))) df$type <- factor(df$type, levels=c("A","B", "C")) df1$type <- factor(df1$type, levels=c("A","B", "C")) df <- data.frame(table(df)) df1 <- data.frame(table(df1)) ggplot(df, aes(x=group, y=Freq, fill=type)) + geom_bar(position="dodge") ggplot(df1, aes(x=group, y=Freq, fill=type)) + geom_bar(position="dodge") 

猜测解决办法是用table（）计算频率然后绘图

Answer 1

你需要在这两个比例（fill和x）上设置drop = FALSE，如下所示：

 library(ggplot2) df <- data.frame(type=c("A", "A", "A", "B", "B"), group=rep("group1", 5)) df1 <- data.frame(type=c("A", "A", "A", "B", "B", "A", "A", "C", "B", "B"), group=c(rep("group1", 5),rep("group2", 5))) df$type <- factor(df$type, levels=c("A","B", "C")) df1$type <- factor(df1$type, levels=c("A","B", "C")) plt <- ggplot(df, aes(x=type, fill=type)) + geom_bar(position='dodge') + scale_fill_discrete(drop=FALSE) + scale_x_discrete(drop=FALSE) plt1 <- ggplot(df1, aes(x=type, fill=type)) + geom_bar(position='dodge') + scale_fill_discrete(drop=FALSE) + scale_x_discrete(drop=FALSE) 

编辑：

我很确定这是有效的。 忘了把x改成组而不是组和位置='闪避'！ 只需粘贴并testing。 stat_bin处理零计数的分箱。 检查文档 。

Answer 2

这是做你想要的吗？

 ggplot(df, aes(x=type)) + geom_bar() + scale_x_discrete(drop=FALSE) 

Answer 3

滴水平不起作用。 第一个例子的降级

 library(ggplot2) df <- data.frame(type=c("A", "A", "A", "B", "B"), group=rep("group1", 5)) df$type <- factor(df$type, levels=c("A","B", "C")) ggplot(df, aes(x=group, fill=type)) + geom_bar(position="dodge") + scale_x_discrete(drop=FALSE) + scale_fill_discrete(drop=FALSE) 

结果在这个情节：

解决scheme是在手动计算频率的第二个示例中：

 df <- data.frame(type=c("A", "A", "A", "B", "B"), group=rep("group1", 5)) df1 <- data.frame(type=c("A", "A", "A", "B", "B", "A", "A", "C", "B", "B"), group=c(rep("group1", 5),rep("group2", 5))) df$type <- factor(df$type, levels=c("A","B", "C")) df1$type <- factor(df1$type, levels=c("A","B", "C")) df <- data.frame(table(df)) df1 <- data.frame(table(df1)) df$plot = "A" df1$plot = "B" df <- rbind(df, df1) ggplot(df, aes(x=group, y=Freq, fill=type)) + geom_bar(position="dodge", stat="identity") + facet_wrap( ~ plot, scales="free") 

结果在这：

最后一个是信息最丰富的空间是占据的类别那里计数= 0

Answer 4

你也可以使用“scale_fill_color”例如：

 plt <- ggplot(df, aes(x=type, fill=type)) + geom_bar(position='dodge') + scale_x_discrete(drop=FALSE)+ scale_fill_manual( values = c( "#ff6666", "#cc9900", "#cc9900", ),drop=FALSE)