R 具有2个Y轴、1个频率、1个频率百分比的直方图

我尝试生成一个具有两个Y轴的直方图。 1个Y轴具有频率，1个Y轴具有累积频率，单位为%。 这是我能得到的最接近的，但情节有点混乱 轴上有多个标签，轴4格式不正确

x<-rnorm(100,5,2)
hist(x,col=c("51"))
par(new=T)
plot(ecdf(x))
axis(4, at=1:10, col.ticks="red")
mean <- paste("mean = ", round(mean(x), digits = 4))
sd <- paste("sd = ", round(sd(x),digits = 4))
median <- paste("median = ", round(median(x),digits = 4)) 
legend(x = "topleft", c(mean,sd,median), bty = "n")

---

提前感谢您的帮助，

parnew=TRUE。请参阅。可能需要确保两个图的范围相同，但hist将其x值设置为间隔中点，ecdf将值设置为精确的x值这一事实意味着有点脱节。我试了几次，他们每个人都有明显的小故障，尽管他们看起来都比你的好。谢谢，我用axis=FALSE压制了图中的轴