Ich habe Daten von 2 Populationen. Ich möchte das Histogramm und die Dichtedarstellung von beiden auf derselben Grafik erhalten. Mit einer Farbe für eine Population und einer anderen Farbe für die andere.

Ich habe das ausprobiert (Beispiel):

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

Aber ich erhalte gerade eine Grafik mit einer einzelnen Linie und einer einzelnen Farbe.

Ich hätte gerne verschiedene Farben für die beiden Dichtelinien. Und wenn möglich auch die Histogramme.

Ich habe es mit ggplot2 gemacht, aber Basis R wäre auch in Ordnung.

oder ich weiß nicht was ich geändert habe und jetzt bekomme ich das:

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

aber die Dichtelinien wurden nicht gezeichnet.

oder sogar seltsame Dinge wie