Untitled

x <- c(50,55,65,49,60)
y <- c(160,165,170,150,153)

plot(x,y,main="身高體重",xlab="weight",ylab="high",pch=15)