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,breaks="Sturges")

hist(x,breaks="Scott")

hist(x,breaks="FD",col='white',main='仕入れたみかん',xlab='重さ[g]',ylab='個数')