ich soll aus dem Datensatz UCBAdmissions (Package "datasets") die relative Aufnahmehäufigkeit von Männern und Frauen je Department
in einem Barchart darstellen. Dazu benutze ich folgenden Code:
Code: Alles auswählen
library("ggplot2")
UCBAdmissions
str(UCBAdmissions)
freq_Department <- prop.table(margin.table(UCBAdmissions,c(1,2,3)),c(2,3))
freq_Department <- as.data.frame(freq_Department)
freq_Department <- freq_Department[freq_Department$Admit == "Admitted",,]
ggplot(data= as.data.frame(freq_Department),
aes(x=Gender, y=Freq, fill=Admit)) +
geom_bar(stat="identity", position = "stack", show.legend = FALSE) +
facet_grid(~ Dept) +
xlab("Geschlecht je Department") +
ylab("Aufnahmehäufigkeit in %") +
theme(axis.title.x = element_text(margin=margin(15,0,0,0)),
axis.title.y = element_text(margin=margin(0,15,0,0)))
Jetzt möchte ich noch die Männer- bzw. Frauenspalten jeweils mit eigenen Farben darstellen, aber schaffe es leider nicht mit scale_fill_manual, da die "Fill"-Kategorie nur aus "Admitted" besteht und ich nicht auf das Geschlecht zurückgreifen kann.
Gibts da trotzdem eine Möglichkeit?
Danke euch!
LG, Martina