---
title: "Joonised"
output: html_document
---

Lihtne arvutus
```{r}
  3+2
```

Arvude jada
```{r}
  1:10
```
Joonis
```{r}
  barplot(1:10)
```
Kabeandmete uuring

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

Poiste pikkuste joonis

```{r}
  barplot(poisid$pikkus)
  sortpoisid=poisid[order(poisid$pikkus), ]
  sortpoisid
  barplot(sortpoisid$pikkus, names.arg=sortpoisid$eesnimi)
  barplot(sortpoisid$pikkus, names.arg=sortpoisid$eesnimi, las=2) #las tõstab nimed püsti

    #Koostage tüdrukute järjestatud rivi, nii et pikim tüdruk on ees
```

Kokkuvõtted
```{r}
   table(lapsed$sugu)
   pie(table(lapsed$sugu))
   pie(table(lapsed$sugu), main="Klassi sooline jaotus")
   pie(table(lapsed$sugu), main="Klassi sooline jaotus", 
       labels=c("poisid", "tüdrukud"), col = c("blue", "pink"))
```

Suhtarvud
```{r}
   prop.table(table(lapsed$sugu))
   round(100*prop.table(table(lapsed$sugu)), 1)
   
```
Harjutus:

Leidke, kui palju on uuritavas klassis neid, kes mängivad kabet kindlalt, 
  kui palju ja kui palju üldse mitte.
  
Väljastage tulemused absoluutarvudena, suhtarvudena ning protsentidena

#kabeoskuse ülevaade
```{r}
   table(lapsed$kabe)  #absoluutarvud
   prop.table(table(lapsed$kabe)) #suhteline osa
   round(100*prop.table(table(lapsed$kabe)), 1) #protsendid
   pie(table(lapsed$kabe), main="Laste kabemänguoskus klassis")
```


#kabeoskus sugude kaupa
```{r}
   table(lapsed$sugu, lapsed$kabe) 
   barplot(table(lapsed$sugu, lapsed$kabe))
   barplot(table(lapsed$sugu, lapsed$kabe), legend=c("m", "n"))
   barplot(table(lapsed$sugu, lapsed$kabe), legend=c("m", "n"), beside=TRUE) #tulbad kõrvuti
   
   prop.table(table(lapsed$sugu, lapsed$kabe), 2) #2 - suhtarvud veergude kaupa
   round(100*prop.table(table(lapsed$sugu, lapsed$kabe), 2), 1) 
    #2 - suhtarvud veergude kaupa kokku 100%
    #Selles klassis olev poiss ei mõista 61% tõenäosusega kabet mängida
```