[R 시각화] 그래프 밖에 화살표 추가하는 방법

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)