ggplot2 сохранить неиспользуемые уровни barplot
Я хочу построить неиспользуемые уровни (то есть уровни, где количество равно 0) в моем бар-графике, однако неиспользуемые уровни отбрасываются, и я не могу понять, как их сохранить
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()
в приведенном выше примере я хочу видеть c, построенное с количеством 0, но оно полностью отсутствует...
Спасибо за любую помощь
Ульрик
Edit:
это то, что я хочу!--3-->
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")
угадайте, что решение заключается в вычислении частот с помощью таблицы() и тогда заговор
4 ответов:
вам нужно установить drop=FALSE на обеих шкалах (fill и x) следующим образом:
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)Edit:
Я уверен, что это работает. Забыл изменить x на тип вместо группы и позицию= 'dodge'! Просто вставьте и проверьте. Stat_bin имеет дело с бункерами с нулевыми подсчетами. Проверьте docs.
падение уровней не работает. Падение уровней на первом примере
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)результаты в этом сюжете:
решение находится во втором примере, где частоты вычисляются вручную:
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")результаты в этом:
последний является наиболее информативным, так как пространство занимают категории там count = 0
вы также можете использовать "scale_fill_color" например :
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)
Comments