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
Czy to robi, co chcesz?
ggplot(df, aes(x=type)) + geom_bar() + scale_x_discrete(drop=FALSE)
źródło
Obniżanie poziomów nie działa. Obniżanie poziomów w pierwszym przykładzie
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)
wyniki w tym wykresie:
Rozwiązanie znajduje się w drugim przykładzie, w którym częstotliwości są obliczane ręcznie:
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")
Skutkuje to:
Ta ostatnia jest najbardziej pouczająca, ponieważ miejsce zajmują kategorie, których licznik = 0
źródło
możesz też użyć „scale_fill_color” na przykład:
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)
źródło