Eu tenho um problema básico com a função geom_histogram

Com o conjunto de dados:

df <- data.frame(value = factor( rep(c("A","B"), c(100,200) )))

Eu crio um histograma com:

ggplot(df, aes(x=value, fill = factor(value))) + geom_histogram()

e a saída é um histograma com contagem de 100 para A e 200 para B

Se eu, em vez disso, plotar a densidade com:

ggplot(df, aes(x=value, fill = factor(value), ..density..)) + geom_histogram()

a saída é um histograma com densidade 1 para A e 1 para B. Suponho que a razão é que a densidade é calculada em A e B separadamente.

O histograma criado com:

ggplot(df, aes(x=value, group = 1, fill = factor(value),..density..)) + geom_histogram()

É um histograma em que A é 0,33 e B é 0,66, mas a cor de preenchimento é preta e não consigo encontrar uma maneira de obter as cores de preenchimento usadas nos histogramas anteriores nesta versão da plotagem.

Como faço para gerar a última versão do histograma com cores de preenchimento com base no fator (valor)?