---
title: "joonis2"
output: html_document
---

```{r}
  lapsed=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klasskabe.txt", header=TRUE, sep=",")
  lapsed
  plot(lapsed$pikkus, lapsed$mass)
  plot(lapsed$pikkus, lapsed$mass, main="Laste pikkused ja massid",
        xlab="pikkus (cm)", ylab = "mass (kg)")
  
  plot(lapsed$pikkus, lapsed$mass, main="Laste pikkused ja massid",
        xlab="pikkus (cm)", ylab = "mass (kg)", type="n")
  text(lapsed$pikkus, lapsed$mass, lapsed$eesnimi)

```

Poisid ja tüdrukud eri värviga

```{r}
  plot(lapsed$pikkus, lapsed$mass, main="Laste pikkused ja massid",
        xlab="pikkus (cm)", ylab = "mass (kg)", 
        col=ifelse(lapsed$sugu=="m", "blue", "red" ) )

#Muutke joonist nõnda, et kabeoskajad on rohelised, teised mustad


```
```{r}

```
```{r}

```