ggplot2 conserve les niveaux inutilisés barplot

100

Je veux tracer les niveaux inutilisés (c'est-à-dire les niveaux où le nombre est 0) dans mon diagramme à barres, cependant, les niveaux inutilisés sont supprimé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 compte de 0, mais il est complètement absent ...

Merci pour toute aide Ulrik

Éditer:

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

Je suppose que la solution est de calculer les fréquences à l'aide de table (), puis de tracer

Ulrik
la source

Réponses:

68

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)

Éditer:

Je suis sûr que cela fonctionne. J'ai oublié de changer x pour taper au lieu de groupe et la position = 'esquiver'! Il suffit de coller et de tester. Le stat_bin traite des bins avec zéro comptage. Consultez les documents .

Jarretinha
la source
Je pense que cela devrait être la réponse à la question du PO. La réponse prend également en compte le niveau abaissé dans la légende.
SavedByJESUS
quand je fais cela, cela change les couleurs de mes barres. Existe-t-il un moyen de conserver les couleurs d'origine?
morgan121
71

Est-ce que cela fait ce que vous voulez?

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

entrez la description de l'image ici

smillig
la source
9

La baisse des niveaux ne fonctionne pas. Baisse des niveaux sur le premier exemple

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)

donne ce tracé:

entrez la description de l'image ici

La solution est dans le deuxième exemple où les fréquences sont calculées manuellement:

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

Résultats en ceci:

entrez la description de l'image ici

Le dernier est le plus informatif car l'espace est occupé par les catégories ici count = 0

Ulrik
la source
1

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)
Yan Zhang
la source