weight <- c(50,55,63,55,67,43,52)
hist(weight,
     col= "lightyellow",
     main ="班上的體重與身高",
     xlab ="體重",
     ylab ="次數")