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,main = 'みかんの重さ',xlab='g',ylab='個数',col='orange')

hist(x,main = 'みかんの重さ',xlab='g',ylab='個数',col='orange',breaks = 'FD')

hist(x,main = 'みかんの重さ',xlab='g',ylab='個数',col='orange', breaks="Scott")

hist(x,main = 'みかんの重さ',xlab='g',ylab='個数',col='orange',breaks = 'sturges')