weights <- c(50,55,63,55,67,43,52)

high <- c(150,160,170,175,150,153,165)

money <- c(500,1000,1500,2000)

plot(weights,high)

library(ggplot2)

hist(weights,
     col= "lightyellow",
     main ="班上的體重與身高",
     xlab ="體重",
     ylab ="次數")