r - 绘制直方图并存在相对频率问题

Question

我试图找到向量 a 的相对频率，但 y 轴显示的数字大于 1。相对频率应该小于或等于 1，对吧？下面是我的代码。

a = vector()
for (i in 1:100){
          flips <- rbinom(4,3,0.5)
          X <- mean(flips)
          a <- append(a, X)
    }
mean(a)
sd(a)
hist(a,freq=FALSE,main="100 Binomial Random Variables", xlab="Number of Successes",ylab="Relative Frequency", col="lightblue")

标签： r