klass=read.table("http://www.tlu.ee/~jaagup/5klass.txt", header=TRUE, sep=",")
klass=klass[klass$sugu=='n',]
klass=klass[order(klass$pikkus),]
#plot(klass$pikkus, klass$mass, main="Opilaste andmed", xlab="pikkus", ylab="mass", sub="5. klass")
#plot(klass$pikkus, klass$mass, main="Opilaste andmed", xlab="pikkus", ylab="mass", sub="5. klass", type="p", col="red", col.main="green", font.axis=2)
#plot(klass$pikkus, klass$mass, xlim=c(100, 200))
plot(klass$pikkus, klass$mass, "l")
title(main="Joonis 3")
#mtext("teade", 4)
#text(160, 50, "kuku")
text(klass$pikkus, klass$mass, klass$eesnimi)