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

COL <- c(rgb(255,0,255,55,max=255),
         rgb(111,255,111,49,max=255),
         rgb(245,213,90,50,max=255))

hist(x,col=COL[1],breaks='Sturges',main='仕入れたみかんの重さ(Sturges)',xlab='グラム(g)',ylab='個数')

hist(x,col=COL[2],breaks='Scott',main='仕入れたみかんの重さ(Scott)',xlab='グラム(g)',ylab='個数')

hist(x,col=COL[3],breaks='FD',main='仕入れたみかんの重さ(FD)',xlab='グラム(g)',ylab='個数')