[R 그래프] 히스토그램에 빈도값 추가하기

[R 그래프] 히스토그램에 빈도값 추가하기

먼저 히스토그램을 하나 그립시다.

#data생성
set.seed(1)
data=rnorm(100,170,5)

#x축 최대,최솟값 확인
summary(data)

#히스토그램 그리기
a=hist(data
     ,breaks=seq(150,190,by=2)
     ,col="red"
     ,main="my histogram"
     ,xlab="height(cm)"
     ,axes=FALSE)

#y축 최댓값
max(a$counts)

#축 설정
x_axis_tick=seq(150,190,by=2)
axis(side=1,at=x_axis_tick)
y_axis_tick=seq(0,max(a$counts),by=2)
axis(side=2,at=y_axis_tick)

#범례 설정
legend("topright","height",fill="red")

빈도값은 text 함수로 추가합니다. +0.5는 조절해주셔야하는 값입니다.

text(a$mids,a$counts+0.5,labels=a$counts)