[R시각화] 모집단 평균, 기각역 표시된 정규분포 그래프 그리기

모집단의 평균(mu0), 임계값(z*), 우리가 뽑은 표본의 평균(bar_X) 가 표시된 그래프입니다. 

 

#표준정규분포 그래프
x=seq(-4,4,by=0.01)
y=dnorm(x)
plot(x,y,type="l",ann=FALSE,axes=FALSE)

#임계값 설정(기각역)
margin=qnorm(0.95)

#축 및 값 추가, pos=c(0,0) 으로 설정해야 축과 그래프 사이 간격 없어짐
axis(1,at=c(-4,0,margin,qnorm(0.99),4),
     pos=c(0,0),
     label=c("",expression(mu[0]),expression(z^"*"),expression(bar(x)[0]),""))

#색칠을 위한 값 설정
x_margin=seq(margin,4,by=0.01)
y_margin=dnorm(x_margin)

#색칠
polygon(c(x_margin,rev(x_margin)),c(y_margin,rep(0,length(y_margin))),col="red")

#테두리
box("outer",col="gray")

 

 

bar