ggplot2 conserver les niveaux inutilisés barplot

Question

Je veux tracer les niveaux inutilisés (c'est-à-dire les niveaux où le nombre est 0) dans mon graphique à barres, cependant, les niveaux inutilisés sont abandonnés et je ne peux pas comprendre comment les conserver

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

Dans l'exemple ci-dessus, je veux voir C tracé avec un nombre de 0, mais il est complètement absent...

Merci pour votre aide Ulrik

Modifier :

Ça fait ce que je veux.

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

Devinez que la solution est de calculer les fréquences en utilisant table() puis tracez

Answer 1

Vous devez définir drop=FALSE sur les deux échelles (fill et x) comme ceci :

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)

Modifier :

Je suis presque sûr que ça marche. Oublié de changer x en type au lieu de groupe et la position='esquive' ! Il suffit de coller et de tester. Le stat_bin traite les bacs avec des nombres nuls. Vérifiez les docs.

Answer 2

Cela fait-il ce que vous voulez ?

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

Answer 3

vous pouvez également utiliser "scale_fill_color" par exemple :

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)