ggplot2 mantiene i livelli inutilizzati barplot


100

Voglio tracciare i livelli inutilizzati (cioè i livelli in cui il conteggio è 0) nel mio grafico a barre, tuttavia, i livelli inutilizzati vengono eliminati e non riesco a capire come mantenerli

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

Nell'esempio sopra, voglio vedere C tracciato con un conteggio di 0, ma è completamente assente ...

Grazie per qualsiasi aiuto Ulrik

Modificare:

Questo fa quello che voglio

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

Immagino che la soluzione sia calcolare le frequenze usando table () e poi tracciare

Risposte:


68

È necessario impostare drop = FALSE su entrambe le scale (riempimento e x) in questo modo:

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)

Modificare:

Sono abbastanza sicuro che funzioni. Ho dimenticato di cambiare x per digitare invece di gruppo e la posizione = 'schiva'! Basta incollare e testare. Il stat_bin si occupa di contenitori con conteggi zero. Controlla i documenti .


Penso che questa dovrebbe essere la risposta alla domanda del PO. La risposta si prende cura anche del livello sceso nella leggenda.
Salvato da Gesù

quando lo faccio cambia i colori delle mie barre. C'è un modo per mantenere i colori originali?
morgan121

71

Questo fa quello che vuoi?

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

inserisci qui la descrizione dell'immagine


9

L'abbassamento dei livelli non funziona. Livelli in calo nel primo esempio

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)

risultati in questo grafico:

inserisci qui la descrizione dell'immagine

La soluzione è nel secondo esempio in cui le frequenze vengono calcolate 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")

Risultati in questo:

inserisci qui la descrizione dell'immagine

L'ultimo è il più informativo in quanto lo spazio è occupato dalle categorie che contano = 0


1

puoi anche usare "scale_fill_color" per esempio:

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)
Utilizzando il nostro sito, riconosci di aver letto e compreso le nostre Informativa sui cookie e Informativa sulla privacy.
Licensed under cc by-sa 3.0 with attribution required.