we <- c(100,160,170,175,200,250,200,300,220)

hist(we,
     col= "lightyellow",
     main ="每個人的時薪",
     xlab ="時薪",
     ylab ="人數")