ggplot2 mantienen los niveles no utilizados barplot

Question

Quiero trazar los niveles no utilizados (es decir, niveles en los que el recuento es 0) en mi barplot, sin embargo, los niveles no utilizados se eliminan y no puedo encontrar la manera de mantenerlos

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() 

En el ejemplo anterior, quiero ver C trazada con un recuento de 0, pero es completamente ausente ...

Gracias por cualquier ayuda Ulrik

Editar:

esto lo que quiero

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") 

Adivina la solución es calcular las frecuencias utilizando la tabla() y luego trazar

Answer 1

Es necesario configurar gota = FALSO en ambas escalas (llene yx) así:

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) 

Editar:

Estoy bastante seguro de esto funciona . Olvidé cambiar x para escribir en lugar de grupo y la posición = 'esquivar'! Solo pega y prueba. El stat_bin trata con contenedores con cero recuentos. Compruebe el docs.

Answer 2

hace esto lo que quieres?

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

Answer 3

La caída de niveles no funciona. Disminución de los niveles en el primer ejemplo

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) 

resultados en esta parcela:

La solución está en segundo ejemplo en el que las frecuencias se calculan manualmente:

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") 

resultados en esta :

El último es el más informativo ya que el espacio está ocupado por las categorías hay count = 0

Answer 4

también puede utilizar "scale_fill_color" por ejemplo:

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)