d <- c(107,94,111,103,98,120,109,96,101,100,124,105,112,106,98,107,110,100,99,113,101,97,121,105)
summary(d)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   94.00   99.75  105.00  105.71  110.25  124.00

hist(d,
     main = 'ヒストグラム',
     xlab = 'x軸ラベル［g］',
     ylab = '個数',
     col="brown",
     breaks='FD')

hist(d,
     main = 'ヒストグラム',
     xlab = 'x軸ラベル［g］',
     ylab = '個数')