ｒ ｂａｒｐｌｏｔ

d <- c(rep(5,10000), rep(15, 1000), rep(25, 100), rep(35,10), rep(45,22))
hist(d, breaks=seq(0,50,10))

d01 <- cut(d,breaks=seq(0,50,10),labels=c("00-09","10-19","20-29","30-39","40-50"), right = FALSE, include.lowest = TRUE)
d02 <- table(d01)
d03 <- as.matrix(d02)
#row.names(d03) <-d03[,1]
#d03 <- d03[-1]
d04 <- barplot(d03[,1],ylim=c(0,12000))

## 棒グラフ縦型に数値をいれる
#bp <- barplot(x, beside=T, main="棒縦",ylim =c(0,11000))
for (i in 1:nrow(d03)) {
xl <- d04[i,]
yl <- d03[i,]+300
#stop("sss")

# yl <- x[,i]/2 # 中心にいれるとき
txt <- round(d03[i,], 2)
txt[txt=="0"] <- NA
text(i, yl, txt)
}