Comment ajouter un 2ème axe Y pour un graphe de densité superposé à un histogramme dans R?

Question

J'ai un histogramme ci-dessous, et j'ai ajouté 2 graphiques de densité. Il correspond aux 2 classes qui composent les données. Je souhaite ajouter un 2ème axe y sur la droite, mais ayant la même hauteur que le premier axe y, de sorte que la hauteur des tracés de densité ne semble pas si petite. Les hauteurs relatives des 2 parcelles de densité doivent directement comparables, de sorte que leur superficie totale est de 1

Answer 1

z <- rnorm(100,.3,.2) 
hist(z, xlab="", ylab="", main="", yaxt="n") 
par(new=TRUE) 
plot(density(z), xlab="", ylab="", main="", xaxt="n", yaxt="n") 
axis(2, ...) # plug in the relevant values for `at` and `labels` 
axis(4, ...) # plug in the relevant values for `at` and `labels` 

Answer 2

Si vous utilisez ggplot2 vous pouvez utiliser geom_density(aes(y=..scaled..)) et geom_histogram(aes(y = ..ndensity)) à l'échelle de la même

par exemple

x <- rnorm(400, 10, 5) 
y <- rnorm(400, -10, 5) 
dd <- rbind(data.frame(value = x, id = 'x'), data.frame(value = y, id = 'y')) 
ggplot(dd, aes(x=value)) + 
    geom_histogram(aes(y=..ndensity..)) + 
    geom_density(aes(colour = id, y = ..scaled..))