r - ggplot2 の着色密度プロット

Question

次のコードを使用して密度プロットを生成すると:

require(ggplot2)
set.seed(seed=10)
n <- 10000
s.data <- data.frame(score = rnorm(n,500,100),
                     gender = sample(c("Male","Female","No Response"),size=n,replace=T,prob=c(.4,.55,.05)),
                     major = sample(c("A","B","C","D"),size=n,replace=T,prob=c(.02,.25,.05,.68))) 
ggplot(s.data, aes(major,..density..,fill=major,group=1)) + 
  geom_histogram() + facet_wrap(~ gender)

「メジャー」のカテゴリを色で区別することはできません。

私が取得したいのは、色と凡例の意味で、この周波数プロットに似た密度プロットです。

ggplot(s.data, aes(major,fill=major)) + 
    geom_histogram() + facet_wrap(~ gender)

この質問は、すでに回答済みの私の質問 (こちら) に続いています。