Гистограмма с 2 осями Y, 1 Freq, 1 Cum Freq%
Я пытаюсь сгенерировать гистограмму с 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")
Заранее благодарю за помощь,