x <- 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(x)

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

hist(x,xlab='g',ylab='個数',main='みかん',breaks='Scott',col='brown')