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

Lihtne tehe:

```r
 3+2
```

```
## [1] 5
```

Arvude jada:

```r
 1:8
```

```
## [1] 1 2 3 4 5 6 7 8
```

Tulpdiagramm:

```r
 barplot(1:5)
```

<img src="joonised_files/figure-html/unnamed-chunk-3-1.png" width="672" />


Kabeoskuste andmed:

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

```
##      eesnimi pikkus mass sugu   kabe
## 1       Juku    170   45    m    jah
## 2       Kati    160   35    n    jah
## 3       Mati    160   72    m natuke
## 4      Madis    165   53    m     ei
## 5       Mati    163   60    m     ei
## 6     Katrin    165   43    n natuke
## 7       Siim    141   38    m     ei
## 8     Martin    159   46    m     ei
## 9      Kadri    164   57    n natuke
## 10 Katariina    148   35    n    jah
## 11     Maria    143   38    n     ei
## 12     Marta    169   55    n     ei
## 13     Madis    156   65    m natuke
## 14    Mihkel    165   69    m natuke
## 15     Tiina    170   38    n    jah
## 16      Miia    145   68    n     ei
## 17      Siim    151   55    m     ei
## 18     Priit    156   63    m     ei
## 19  Kristjan    164   59    m    jah
## 20    Kristi    155   53    n natuke
## 21 Kristiina    158   62    n    jah
## 22     Killu    164   49    n     ei
## 23      Mart    170   69    m     ei
## 24      Kert    143   36    m    jah
## 25      Gert    152   67    m     ei
## 26     Lauri    156   53    m natuke
## 27   Moonika    164   58    n    jah
## 28   Jaanika    165   59    n     ei
## 29    Jaanus    164   63    m natuke
## 30      Jaan    162   65    m    jah
```


Sugude jaotus

```r
  table(lapsed$sugu) #absoluutarvud
```

```
## 
##  m  n 
## 17 13
```

```r
  prop.table(table(lapsed$sugu)) #Suhtarvud
```

```
## 
##         m         n 
## 0.5666667 0.4333333
```

```r
  100*prop.table(table(lapsed$sugu)) #Protsendid
```

```
## 
##        m        n 
## 56.66667 43.33333
```

```r
  round(100*prop.table(table(lapsed$sugu))) #Ümardatuna
```

```
## 
##  m  n 
## 57 43
```

```r
  paste(round(100*prop.table(table(lapsed$sugu))), "%") #Koos protsendimärgiga
```

```
## [1] "57 %" "43 %"
```


Sektordiagramm


```r
  pie(table(lapsed$sugu))
```

<img src="joonised_files/figure-html/unnamed-chunk-6-1.png" width="672" />

```r
  pie(table(lapsed$sugu), main="Jaotus sugude järgi", 
       labels = c("poisid", "tüdrukud"), col = c("lightblue", "pink"))
```

<img src="joonised_files/figure-html/unnamed-chunk-6-2.png" width="672" />

Harjutus:

Koostage sarnane ülevaade ka kabeoskuse kohta:
absoluutarvud, suhtarvud, protsendid, samuti joonis.

Kabeoskus protsentides:

```r
  round(100*prop.table(table(lapsed$kabe)), 1)
```

```
## 
##     ei    jah natuke 
##   43.3   30.0   26.7
```

```r
  pie(table(lapsed$kabe), main="Jaotus kabeoskuse järgi")
```

<img src="joonised_files/figure-html/unnamed-chunk-7-1.png" width="672" />

```r
  barplot(table(lapsed$kabe), col = c("red", "green", "yellow"))
```

<img src="joonised_files/figure-html/unnamed-chunk-7-2.png" width="672" />

```r
  lapsed$kabe=factor(lapsed$kabe, levels=c("ei", "natuke", "jah")) #järjekorra muutus
  barplot(table(lapsed$kabe))
```

<img src="joonised_files/figure-html/unnamed-chunk-7-3.png" width="672" />


Ülevaade kabeoskuse kohta vastavalt soole

```r
  table(lapsed$sugu, lapsed$kabe)
```

```
##    
##     ei natuke jah
##   m  8      5   4
##   n  5      3   5
```