R 正态曲线图上的错误区域

我试图从头开始学习R，我刚刚完成了一个假设检验的大学作业，一个二项分布（一个样本的比例检验），我用R来求解和绘制。但是我遇到了一些问题

我的样本量是130，成功案例是68

• H0：π=50%
• H1：π>50

这就是我使用的代码（大量的复制粘贴和尝试/错误）

库（ggplot2）
图书馆（主题）
图书馆（比例尺）
#资料
n=130
p=1/2
stdev=sqrt（n*p*（1-p））
平均值n=n*p
例=68
ztest=（案例平均值）/stdev
pvalor=pnorm（-abs（ztest））
zcrit=qnorm（0.975）
#法向曲线
xvalues解决方案是在定义函数范围的
stat_function
内部使用
xlim
选项。
也可以用
dnorm
替换
area_z
和
area_zc

p3 <- p2 + stat_function(fun = dnorm) + 
    stat_function(fun = dnorm, geom = "area", fill = "blue", alpha = 0.3, 
                  xlim = c(ztest,zcrit)) +
    geom_text(x = 1.13, y = 0.1, size = 5, fontface = "bold",
              label = paste0(valor_area_z * 100, "%")) +
    stat_function(fun = dnorm, geom = "area", fill = "red", alpha = 0.5, 
                  xlim = c(zcrit,xvalues$x[2])) +
    geom_text(x = 2.27, y = 0.015, size = 3, fontface = "bold",
              label = paste0(valor_area_zc * 100, "%")) +
    scale_x_continuous(breaks = c(-3:3)) + 
    labs(x = "\n z", y = "f(z) \n", title = "Distribuição Normal \n") +
    theme_fivethirtyeight()

p3

p3如果您不舍入
valor_area_z
，会发生什么？@MichaelChirico此函数仅用于显示区域的文本值。不过还是要谢谢你！哇！非常感谢@marco！为了更好地理解函数，我将尝试这两个示例并阅读文档。所以问题是，我定义的函数给出了不正确/不精确的值，因为我限制范围的方式？norm_z[xp3 <- p2 + stat_function(fun = dnorm) + 
    stat_function(fun = dnorm, geom = "area", fill = "blue", alpha = 0.3, 
                  xlim = c(ztest,zcrit)) +
    geom_text(x = 1.13, y = 0.1, size = 5, fontface = "bold",
              label = paste0(valor_area_z * 100, "%")) +
    stat_function(fun = dnorm, geom = "area", fill = "red", alpha = 0.5, 
                  xlim = c(zcrit,xvalues$x[2])) +
    geom_text(x = 2.27, y = 0.015, size = 3, fontface = "bold",
              label = paste0(valor_area_zc * 100, "%")) +
    scale_x_continuous(breaks = c(-3:3)) + 
    labs(x = "\n z", y = "f(z) \n", title = "Distribuição Normal \n") +
    theme_fivethirtyeight()

p3