茲舉一例做說明:
x=rnorm(100)
b=c(-4,-3,-2,-1,0,1,2,3)        #設定分隔點,分為8區,(-無限大,-3],(-3,-2],..,(2,3],(3,無限大)
hist(x,breaks=b)        #將x資料分為8群

result=hist(x,breaks=b);names(result)
y=result$"counts"+1        #這是縱軸的高度+1
x=result$"breaks"+0.5        #這是橫軸的位置+0.5
x=x[-length(x)]

#使用頻數的話
text(x,y,labels=result$"counts")

#使用百分比的話
text(x,y,labels=result$"counts"/sum(result$"counts"))

自己先顶起，坐等高手指教！谢谢！

牛掰，感谢指导，灰常感谢！

请教为什么我作图后数字在条内，而没有像您画的在上方呢？

我設置的y是文字(text函數)在座標軸上的高度位置，因為我的縱軸數字較小,所以,我只把高度增加了1,如果,您的圖縱軸數字差距較大,那麼,就把高度加多些。