Chcę wykreślić nieużywane poziomy (to znaczy poziomy, których liczba wynosi 0) na moim wykresie słupkowym, jednak niewykorzystane poziomy są pomijane i nie mogę dowiedzieć się, 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ę, aby C wykreślono z liczbą 0, ale jest całkowicie nieobecne ...
Dzięki za wszelką pomoc Ulrik
Edytować:
Robi to, czego 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