반응형
arrow 함수를 이용하여 그래프 밖에 화살표를 추가할 때는 xpd 옵션을 TRUE로 설정하면 됩니다.
예시는 아래와 같습니다.
df=30
alpha=0.05
x=seq(-5,5,0.1)
y=dt(x,df)
plot(x,y,'l')
xp=seq(qt(1-alpha,df),10,0.1)
yp=dt(xp,df)
polygon(c(xp,rev(xp)),c(rep(0,length(xp)),rev(yp)),col="blue")
title(main=paste(df,"자유도 t분포"))
arrows(qt(1-alpha,df),-0.035,qt(1-alpha,df),par("usr")[3],xpd=TRUE,length=0.13,lwd=2,col="red")
#그래프 밖에 화살표 추가
text(qt(1-alpha,df),-0.045,"t?",xpd=TRUE,col="red",font=2)
text(4,0.03,paste("area=",alpha),col="blue",font=2)
반응형
'4. 그래프 꾸미기(저수준 함수) > arrows() - 화살표' 카테고리의 다른 글
[R 시각화] 그래프에 화살표 추가하는 방법 (0) | 2020.12.17 |
---|
댓글