---
title: "koolid"
output: html_document
---

Koolid

Loe sisse koolide arvu andmestik http://www.tlu.ee/~jaagup/andmed/muu/koolid2014.txt
Kuva andmed
Kuva õpilaste arvude summa
Kuva õpilaste arvude summa maakondade kaupa
Kuva koolide arv maakondade kaupa
 Järjesta tulemus koolide arvu järgi
 Järjesta tulemus maakonnanimede järgi
Kuva koolide arv Eestis

```{r }
  koolid=read.table("http://www.tlu.ee/~jaagup/andmed/muu/koolid2014.txt", header=TRUE, sep=",", encoding = "UTF-8")
  head(koolid)
  sum(koolid$opilasi)
  mksummad=tapply(koolid$opilasi, koolid$maakond, sum)
  mksummad
  class(mksummad)
  sort(mksummad)
  rev(sort(mksummad))
  names(mksummad)
  dfsummad=as.data.frame(mksummad)
  dfsummad
  names(dfsummad)
  colnames(dfsummad)
  rownames(dfsummad)
  dfsummad$mknimi=rownames(dfsummad)
  dfsummad
  dfsummad[["mknimi"]]
  nrow(dfsummad)
  rownames(dfsummad)=1:nrow(dfsummad)
  dfsummad
  dfsummad[order(dfsummad$mksummad), ]
  dfsummad[rev(order(dfsummad$mksummad)), ]
  dfsummad[order(dfsummad$mknimi), ]
  nrow(koolid)
  length(koolid$koolinimi)
```

Koole maakonna kohta

Kuva iga maakonna kohta, milline suhteline osa Eesti koolidest on selles maakonnas
Leia koolide keskmine arv maakonna kohta
Leia standardhälve koolide arvust maakonna kohta
Näita iga maakonna kohta, mitme standardhälbe jagu erineb tema tulemus keskmisest (ja millises suunas)


```{r }
  koolekokku=nrow(koolid)
  koolemaakonnas=tapply(koolid$koolinimi, koolid$maakond, length)
  koolemaakonnas
  suhtelineosamaakonnas=koolemaakonnas/koolekokku
  suhtelineosamaakonnas
  koolekeskmiselt=mean(koolemaakonnas)
  sdkoolid=sd(koolemaakonnas)
  sdkoolid
  erinevuskeskmisest=koolemaakonnas-koolekeskmiselt
  erinevuskeskmisest
  zvaartus=erinevuskeskmisest/sdkoolid
  zvaartus
  hist(koolemaakonnas)
```
```{r }
  maakonnad=read.table("http://www.tlu.ee/~jaagup/andmed/muu/maakonnad2012.txt", header=TRUE, sep=",", encoding = "UTF-8")
 maakonnad
 maakonnad$asutustihedus=maakonnad$rahvaarv/maakonnad$pindala
 maakonnad[order(maakonnad$asutustihedus), ] 
 maakonnad$zvaartus=(maakonnad$asutustihedus-mean(maakonnad$asutustihedus))/sd(maakonnad$asutustihedus)
```

Tabelite ühendamine

Ühenda tabelid, iga kooli järgi näita ka vastava maakonna rahvaarv ja pindala
Järjesta tulemused selle järgi, kui suure osa moodustab kool vastava maakonna rahvastikust
Näita iga maakonna kohta, milline suhteline osa sealsest rahvast on õpilased

```{r }
  maakonnad=read.table("http://www.tlu.ee/~jaagup/andmed/muu/maakonnad2012.txt", header=TRUE, sep=",", encoding = "UTF-8")

  koos=merge(koolid, maakonnad, by.x="maakond", by.y="maakonnanimi")
  head(koos)
  koos$osamaakonnas=koos$opilasi/koos$rahvaarv
  sorditud=koos[order(koos$osamaakonnas), ]
  head(sorditud)
  tail(sorditud)
```