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, але він повністю відсутній ...

Дякуємо за будь-яку допомогу Ульріку

Редагувати:

Це робить те, що я хочу

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 на обох шкалах (заливка та 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)

Редагувати:

Я майже впевнений, що це працює. Забули змінити х на тип замість групи і позиція = 'ухилитися'! Просто вставте і протестуйте. 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)