0

我尝试生成带有 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")

提前感谢您的帮助,

4

0 回答 0