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, но он полностью отсутствует …

Спасибо за любую помощь Ulrik

Редактировать:

Это делает то, что я хочу

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

Предположим, что решение состоит в том, чтобы рассчитать частоты, используя таблицу (), а затем график

Вам нужно установить 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) 

Редактировать:

Я уверен, что это работает. Забыл изменить x, чтобы ввести вместо группы, а position = 'dodge'! Просто вставьте и проверьте. Stat_bin имеет дело с бункерами с нулевым количеством отсчетов. Проверьте документы .

Делает ли это то, что вы хотите?

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

введите описание изображения здесь

Уровни сброса не работают. Снижение уровней в первом примере

 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) 
Interesting Posts

Авто-свойства C # 3.0 – полезны или нет?

Получить перечисление по его внутреннему полю

Инициализация структуры C ++

Как получить принтер HP и Canon для работы в Snow Leopard?

Передача списка объектов в MVC-controller с использованием jQuery Ajax

Pinging собственной машины возвращает IPv6-адрес вместо IPv4

Возможно, ошибка компилятора C # в Visual Studio 2015

Почему, когда конструктор аннотируется с помощью @JsonCreator, его аргументы должны быть аннотированы с помощью @JsonProperty?

Android-приложение поддерживается 0 устройствами

Safari не устанавливает Cookie, но IE / FF делает

Что означает, что ячейка Office Open XML содержит значение Date / Time?

Как перебирать List и отображать каждый элемент в Facelets JSF

В чем разница между «Запросить полезную нагрузку» и «Данные формы», как показано на вкладке «Инструменты разработчика Chrome».

Можно ли запретить EntityFramework 4 переписывать настроенные свойства?

xcode приложение сбой при запуске с точкой останова

Давайте будем гением компьютера.