У меня есть основная проблема с функцией geom_histogram

С набором данных:

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

Я создаю гистограмму с:

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

и выводом является гистограмма со счетом 100 для A и 200 для B

Если бы я вместо графика плотности с:

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

на выходе получается гистограмма с плотностью 1 для A и 1 для B. Я предполагаю, что причина в том, что плотность рассчитывается для A и B отдельно.

Гистограмма, созданная с помощью:

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

Это гистограмма, где A равно 0,33, а B равно 0,66, но цвет заливки черный, и я не могу найти способ получить цвета заливки, использованные в предыдущих гистограммах в этой версии графика.

Как мне сгенерировать последнюю версию гистограммы с цветами заливки на основе фактора (значения)?