Histogramme cumulé avec pourcentage sur l'axe des Y

Je souhaite parcelle du projet R d'un histogramme cumulatif, où sur les axes Y est indiqué le pourcentage au lieu de la fréquence

x <- c(rnorm(100), rnorm(50, mean=2,sd=.5))
h <- hist(x, plot=FALSE, breaks=20)
h$counts     <- cumsum(h$counts)
h$density    <- cumsum(h$density)
plot(h, freq=TRUE, main="(Cumulative) histogram of x", col="white", border="black")
box()

Merci pour l'aide

Ensemble freq=FALSE dans hist(data, freq=FALSE) pour vous d'obtenir les probabilités de "pourcentage" au lieu de fréquences
est-il possible d'ajouter/modifier de la barre avec une ligne?

OriginalL'auteur Gianni Spear | 2012-11-12