Balken in gruppiertem BarChart unterschiedlich einfärben

[Martina1909]

Hallo,

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

Siehe Grafik ganz unten.

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

[Athomas]

und ich nicht auf das Geschlecht zurückgreifen kann.

Und was wäre mit

Code: Alles auswählen

aes(x=Gender, y=Freq, fill=Gender)

[Martina1909]

Alles klar, das war ja ein ganz großes Brett vor dem Kopf...

Danke dir & LG, Martina