---
title: "xyjoonis"
output: html_document
---


```{r}
  lapsed=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klasskabe.txt", 
                     header=TRUE, sep=",")
  lapsed
```

```{r}
  plot(lapsed$mass, lapsed$pikkus)
  plot(lapsed$mass, lapsed$pikkus, main="Laste masside ja pikkuste joonis",
        xlab="mass (kg)", ylab="pikkus (cm)")
  #http://minitorn.tlu.ee/~jaagup/kool/java/kursused/16/gagr/naited/d/
```


Värvid vastavalt soole

```{r}
  plot(lapsed$mass, lapsed$pikkus, col=ifelse(lapsed$sugu=="m", "black", "red"))
  lapsed$kabe=factor(lapsed$kabe, levels=c("ei", "natuke", "jah"))
  lapsed$kabe
  as.numeric(lapsed$kabe)
  plot(lapsed$mass, lapsed$pikkus, col=ifelse(lapsed$sugu=="m", "black", "red"),
       cex=as.numeric(lapsed$kabe))
  #sugu vastavalt värvile
  #ringi suurus vastavalt kabeoskusele
  text(65, 145, "raskemad")
  #Lisa tekst ka kergemate jaoks
  text(40, 160, "pikemad")  
  text(lapsed$mass, lapsed$pikkus-2, lapsed$eesnimi, cex=0.5)
  abline(h=mean(lapsed$pikkus), lty=2)
  abline(v=mean(lapsed$mass), lty=2, col="red")
```