У меня есть данные из 2 групп населения. Я хотел бы получить гистограмму и график плотности обоих на одном графике. С одним цветом для одной популяции и другим цветом для другой.

Я пробовал это (пример):

library(ggplot2)
AA <- rnorm(100000, 70,20)
BB <- rnorm(100000,120,20)

valores <- c(AA,BB)
grupo <- c(rep("AA", 100000),c(rep("BB", 100000)))
todo <- data.frame(valores, grupo)


ggplot(todo, aes(x=valores, fill=grupo, color=grupo)) +
  geom_histogram(aes(y=..density..), binwidth=3)+  geom_density(aes(color=grupo))

Но я просто получаю графику с одной линией и одним цветом.

Я хотел бы иметь разные цвета для двух линий плотности. И, если возможно, гистограммы.

Я сделал это с ggplot2, но база R также будет в порядке.

или я не знаю, что я изменил, и теперь я получаю это:

ggplot(todo, aes(x=valores, fill=grupo, color=grupo)) + 
geom_histogram( position="identity", binwidth=3, alpha=0.5)+ 
geom_density(aes(color=grupo))

но линии плотности не были нанесены.

или даже странные вещи, такие как