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")
よろしくお願いいたします。