Chcę narysować nieużywane poziomy (czyli poziomy, na których liczba wynosi 0) w moim wykresie słupkowym, jednak niewykorzystane poziomy są upuszczane i nie mogę wymyślić, jak je zachować

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

W powyższym przykładzie chcę zobaczyć C wykreślony z liczbą 0, ale jest on całkowicie nieobecny ...

Dzięki za pomoc Ulrik

Edytować:

To robi, co chcę

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

Zgadnij, że rozwiązaniem jest obliczenie częstotliwości za pomocą tabeli (), a następnie wykreślenie