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

Lihtne tehe:
```{r}
 3+2
```

Arvude jada:
```{r}
 1:8
```

Tulpdiagramm:
```{r}
 barplot(1:5)
```


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


Sugude jaotus
```{r}
  table(lapsed$sugu) #absoluutarvud
  prop.table(table(lapsed$sugu)) #Suhtarvud
  100*prop.table(table(lapsed$sugu)) #Protsendid
  round(100*prop.table(table(lapsed$sugu))) #Ümardatuna
  paste(round(100*prop.table(table(lapsed$sugu))), "%") #Koos protsendimärgiga
```


Sektordiagramm

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

Harjutus:

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

Kabeoskus protsentides:
```{r}
  round(100*prop.table(table(lapsed$kabe)), 1)
  pie(table(lapsed$kabe), main="Jaotus kabeoskuse järgi")
  barplot(table(lapsed$kabe), col = c("red", "green", "yellow"))
  lapsed$kabe=factor(lapsed$kabe, levels=c("ei", "natuke", "jah")) #järjekorra muutus
  barplot(table(lapsed$kabe))
```


Ülevaade kabeoskuse kohta vastavalt soole
```{r}
  table(lapsed$sugu, lapsed$kabe)
  barplot(table(lapsed$sugu, lapsed$kabe))
  barplot(table(lapsed$sugu, lapsed$kabe), legend=c("m", "n"),
          ylab="Õpilaste arv", xlab="Oskuste tase", 
          main="Kabeoskus vastavalt soole")
  barplot(table(lapsed$sugu, lapsed$kabe), beside = TRUE) #Tulbad kõrvuti

```