we <- c(55,60,67,85)
we2 <- c(165,166,178,179)  

mean(we)  
## [1] 66.75
median(we2)
## [1] 172
sd(we)
## [1] 13.1244
var(we2)
## [1] 56.66667
plot(we,we2,
pch=17,
col="black")

main="班上很可悲的人數"
xlab="體重"
ylab="身高身高"