Untitled

weight <- c(50,55,63,55,67,43,52,59,92)

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


# Load ggplot2
library("ggplot2")

# Create data
data <- data.frame(
  name=c("A","B","C","D","E") ,  
  value=c(3,12,5,18,45)
  )

# Barplot
ggplot(data, aes(x=name, y=value)) + 
  geom_bar(stat = "identity")

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