ggplot2 mantiene il barplot dei livelli inutilizzati

Voglio tracciare livelli inutilizzati (cioè livelli in cui il conteggio è 0) nella mia trama bar, tuttavia, i livelli inutilizzati sono scesi e non riesco a capire come tenerli

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

Indovina la soluzione è calcolare le frequenze usando la tabella () e poi tracciare

Devi impostare drop = FALSE su entrambe le scale (fill 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. Hai dimenticato di cambiare x per digitare invece di gruppo e la posizione = 'schivare'! Basta incollare e testare. Lo stat_bin si occupa di bin con conteggio zero. Controlla i documenti .

Questo fa quello che vuoi?

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

inserisci la descrizione dell'immagine qui

I livelli di rilascio non funzionano. Livelli di rilascio sul 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 questa trama:

inserisci la descrizione dell'immagine qui

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 la descrizione dell'immagine qui

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

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)