具有2个Y轴，1个频率，1个Cum Freq％的直方图

Question

我尝试生成一个包含2个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")

提前感谢您的帮助，