koolid
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
koolid=read.table("http://www.tlu.ee/~jaagup/andmed/muu/koolid2014.txt", header=TRUE, sep=",", encoding = "UTF-8")
head(koolid)## id koolinimi vald maakond opilasi
## 1 1 Viimsi Keskkool Viimsi vald Harju maakond 1599
## 2 2 Tartu Kivilinna Gümnaasium Tartu linn Tartu maakond 1439
## 3 3 Tallinna 21. Kool Tallinn linn Harju maakond 1167
## 4 4 Keila Kool Keila linn Harju maakond 1133
## 5 5 Tallinna Linnamäe Vene Lütseum Tallinn linn Harju maakond 1035
## 6 6 Tartu Tamme Gümnaasium Tartu linn Tartu maakond 1025 sum(koolid$opilasi)## [1] 134975 mksummad=tapply(koolid$opilasi, koolid$maakond, sum)
mksummad## Harju maakond Hiiu maakond Ida-Viru maakond
## 55056 918 14138
## Jõgeva maakond Järva maakond Lääne-Viru maakond
## 3394 3296 6843
## Lääne maakond Põlva maakond Pärnu maakond
## 2815 2804 9111
## Rapla maakond Saare maakond Tartu maakond
## 3672 3187 17648
## Valga maakond Viljandi maakond Võru maakond
## 3310 5089 3694 class(mksummad)## [1] "array" sort(mksummad)## Hiiu maakond Põlva maakond Lääne maakond
## 918 2804 2815
## Saare maakond Järva maakond Valga maakond
## 3187 3296 3310
## Jõgeva maakond Rapla maakond Võru maakond
## 3394 3672 3694
## Viljandi maakond Lääne-Viru maakond Pärnu maakond
## 5089 6843 9111
## Ida-Viru maakond Tartu maakond Harju maakond
## 14138 17648 55056 rev(sort(mksummad))## Harju maakond Tartu maakond Ida-Viru maakond
## 55056 17648 14138
## Pärnu maakond Lääne-Viru maakond Viljandi maakond
## 9111 6843 5089
## Võru maakond Rapla maakond Jõgeva maakond
## 3694 3672 3394
## Valga maakond Järva maakond Saare maakond
## 3310 3296 3187
## Lääne maakond Põlva maakond Hiiu maakond
## 2815 2804 918 names(mksummad)## [1] "Harju maakond" "Hiiu maakond" "Ida-Viru maakond"
## [4] "Jõgeva maakond" "Järva maakond" "Lääne-Viru maakond"
## [7] "Lääne maakond" "Põlva maakond" "Pärnu maakond"
## [10] "Rapla maakond" "Saare maakond" "Tartu maakond"
## [13] "Valga maakond" "Viljandi maakond" "Võru maakond" dfsummad=as.data.frame(mksummad)
dfsummad## mksummad
## Harju maakond 55056
## Hiiu maakond 918
## Ida-Viru maakond 14138
## Jõgeva maakond 3394
## Järva maakond 3296
## Lääne-Viru maakond 6843
## Lääne maakond 2815
## Põlva maakond 2804
## Pärnu maakond 9111
## Rapla maakond 3672
## Saare maakond 3187
## Tartu maakond 17648
## Valga maakond 3310
## Viljandi maakond 5089
## Võru maakond 3694 names(dfsummad)## [1] "mksummad" colnames(dfsummad)## [1] "mksummad" rownames(dfsummad)## [1] "Harju maakond" "Hiiu maakond" "Ida-Viru maakond"
## [4] "Jõgeva maakond" "Järva maakond" "Lääne-Viru maakond"
## [7] "Lääne maakond" "Põlva maakond" "Pärnu maakond"
## [10] "Rapla maakond" "Saare maakond" "Tartu maakond"
## [13] "Valga maakond" "Viljandi maakond" "Võru maakond" dfsummad$mknimi=rownames(dfsummad)
dfsummad## mksummad mknimi
## Harju maakond 55056 Harju maakond
## Hiiu maakond 918 Hiiu maakond
## Ida-Viru maakond 14138 Ida-Viru maakond
## Jõgeva maakond 3394 Jõgeva maakond
## Järva maakond 3296 Järva maakond
## Lääne-Viru maakond 6843 Lääne-Viru maakond
## Lääne maakond 2815 Lääne maakond
## Põlva maakond 2804 Põlva maakond
## Pärnu maakond 9111 Pärnu maakond
## Rapla maakond 3672 Rapla maakond
## Saare maakond 3187 Saare maakond
## Tartu maakond 17648 Tartu maakond
## Valga maakond 3310 Valga maakond
## Viljandi maakond 5089 Viljandi maakond
## Võru maakond 3694 Võru maakond dfsummad[["mknimi"]]## [1] "Harju maakond" "Hiiu maakond" "Ida-Viru maakond"
## [4] "Jõgeva maakond" "Järva maakond" "Lääne-Viru maakond"
## [7] "Lääne maakond" "Põlva maakond" "Pärnu maakond"
## [10] "Rapla maakond" "Saare maakond" "Tartu maakond"
## [13] "Valga maakond" "Viljandi maakond" "Võru maakond" nrow(dfsummad)## [1] 15 rownames(dfsummad)=1:nrow(dfsummad)
dfsummad## mksummad mknimi
## 1 55056 Harju maakond
## 2 918 Hiiu maakond
## 3 14138 Ida-Viru maakond
## 4 3394 Jõgeva maakond
## 5 3296 Järva maakond
## 6 6843 Lääne-Viru maakond
## 7 2815 Lääne maakond
## 8 2804 Põlva maakond
## 9 9111 Pärnu maakond
## 10 3672 Rapla maakond
## 11 3187 Saare maakond
## 12 17648 Tartu maakond
## 13 3310 Valga maakond
## 14 5089 Viljandi maakond
## 15 3694 Võru maakond dfsummad[order(dfsummad$mksummad), ]## mksummad mknimi
## 2 918 Hiiu maakond
## 8 2804 Põlva maakond
## 7 2815 Lääne maakond
## 11 3187 Saare maakond
## 5 3296 Järva maakond
## 13 3310 Valga maakond
## 4 3394 Jõgeva maakond
## 10 3672 Rapla maakond
## 15 3694 Võru maakond
## 14 5089 Viljandi maakond
## 6 6843 Lääne-Viru maakond
## 9 9111 Pärnu maakond
## 3 14138 Ida-Viru maakond
## 12 17648 Tartu maakond
## 1 55056 Harju maakond dfsummad[rev(order(dfsummad$mksummad)), ]## mksummad mknimi
## 1 55056 Harju maakond
## 12 17648 Tartu maakond
## 3 14138 Ida-Viru maakond
## 9 9111 Pärnu maakond
## 6 6843 Lääne-Viru maakond
## 14 5089 Viljandi maakond
## 15 3694 Võru maakond
## 10 3672 Rapla maakond
## 4 3394 Jõgeva maakond
## 13 3310 Valga maakond
## 5 3296 Järva maakond
## 11 3187 Saare maakond
## 7 2815 Lääne maakond
## 8 2804 Põlva maakond
## 2 918 Hiiu maakond dfsummad[order(dfsummad$mknimi), ]## mksummad mknimi
## 1 55056 Harju maakond
## 2 918 Hiiu maakond
## 3 14138 Ida-Viru maakond
## 4 3394 Jõgeva maakond
## 5 3296 Järva maakond
## 6 6843 Lääne-Viru maakond
## 7 2815 Lääne maakond
## 8 2804 Põlva maakond
## 9 9111 Pärnu maakond
## 10 3672 Rapla maakond
## 11 3187 Saare maakond
## 12 17648 Tartu maakond
## 13 3310 Valga maakond
## 14 5089 Viljandi maakond
## 15 3694 Võru maakond nrow(koolid)## [1] 535 length(koolid$koolinimi)## [1] 535Koole 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)
koolekokku=nrow(koolid)
koolemaakonnas=tapply(koolid$koolinimi, koolid$maakond, length)
koolemaakonnas## Harju maakond Hiiu maakond Ida-Viru maakond
## 138 7 42
## Jõgeva maakond Järva maakond Lääne-Viru maakond
## 25 21 40
## Lääne maakond Põlva maakond Pärnu maakond
## 24 20 47
## Rapla maakond Saare maakond Tartu maakond
## 21 19 54
## Valga maakond Viljandi maakond Võru maakond
## 21 34 22 suhtelineosamaakonnas=koolemaakonnas/koolekokku
suhtelineosamaakonnas## Harju maakond Hiiu maakond Ida-Viru maakond
## 0.25794393 0.01308411 0.07850467
## Jõgeva maakond Järva maakond Lääne-Viru maakond
## 0.04672897 0.03925234 0.07476636
## Lääne maakond Põlva maakond Pärnu maakond
## 0.04485981 0.03738318 0.08785047
## Rapla maakond Saare maakond Tartu maakond
## 0.03925234 0.03551402 0.10093458
## Valga maakond Viljandi maakond Võru maakond
## 0.03925234 0.06355140 0.04112150 koolekeskmiselt=mean(koolemaakonnas)
sdkoolid=sd(koolemaakonnas)
sdkoolid## [1] 30.96696 erinevuskeskmisest=koolemaakonnas-koolekeskmiselt
erinevuskeskmisest## Harju maakond Hiiu maakond Ida-Viru maakond
## 102.333333 -28.666667 6.333333
## Jõgeva maakond Järva maakond Lääne-Viru maakond
## -10.666667 -14.666667 4.333333
## Lääne maakond Põlva maakond Pärnu maakond
## -11.666667 -15.666667 11.333333
## Rapla maakond Saare maakond Tartu maakond
## -14.666667 -16.666667 18.333333
## Valga maakond Viljandi maakond Võru maakond
## -14.666667 -1.666667 -13.666667 zvaartus=erinevuskeskmisest/sdkoolid
zvaartus## Harju maakond Hiiu maakond Ida-Viru maakond
## 3.30459773 -0.92571793 0.20451908
## Jõgeva maakond Järva maakond Lääne-Viru maakond
## -0.34445318 -0.47362313 0.13993411
## Lääne maakond Põlva maakond Pärnu maakond
## -0.37674567 -0.50591561 0.36598151
## Rapla maakond Saare maakond Tartu maakond
## -0.47362313 -0.53820810 0.59202891
## Valga maakond Viljandi maakond Võru maakond
## -0.47362313 -0.05382081 -0.44133064 hist(koolemaakonnas)
maakonnad=read.table("http://www.tlu.ee/~jaagup/andmed/muu/maakonnad2012.txt", header=TRUE, sep=",", encoding = "UTF-8")
maakonnad## maakonnanimi rahvaarv pindala
## 1 Harju maakond 552927 4333
## 2 Hiiu maakond 8482 1023
## 3 Ida-Viru maakond 149172 3364
## 4 Jõgeva maakond 31376 2604
## 5 Järva maakond 30537 2460
## 6 Lääne maakond 24140 2383
## 7 Lääne-Viru maakond 59842 3628
## 8 Põlva maakond 27448 2165
## 9 Pärnu maakond 82598 4807
## 10 Rapla maakond 34914 2980
## 11 Saare maakond 31317 2922
## 12 Tartu maakond 150528 2993
## 13 Valga maakond 30123 2044
## 14 Viljandi maakond 47599 3422
## 15 Võru maakond 33452 2305 maakonnad$asutustihedus=maakonnad$rahvaarv/maakonnad$pindala
maakonnad[order(maakonnad$asutustihedus), ] ## maakonnanimi rahvaarv pindala asutustihedus
## 2 Hiiu maakond 8482 1023 8.29130
## 6 Lääne maakond 24140 2383 10.13009
## 11 Saare maakond 31317 2922 10.71766
## 10 Rapla maakond 34914 2980 11.71611
## 4 Jõgeva maakond 31376 2604 12.04916
## 5 Järva maakond 30537 2460 12.41341
## 8 Põlva maakond 27448 2165 12.67806
## 14 Viljandi maakond 47599 3422 13.90970
## 15 Võru maakond 33452 2305 14.51280
## 13 Valga maakond 30123 2044 14.73728
## 7 Lääne-Viru maakond 59842 3628 16.49449
## 9 Pärnu maakond 82598 4807 17.18286
## 3 Ida-Viru maakond 149172 3364 44.34364
## 12 Tartu maakond 150528 2993 50.29335
## 1 Harju maakond 552927 4333 127.60835 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
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)## maakond id koolinimi vald opilasi
## 1 Harju maakond 1 Viimsi Keskkool Viimsi vald 1599
## 2 Harju maakond 123 Lasnamäe Üldgümnaasium Tallinn linn 426
## 3 Harju maakond 3 Tallinna 21. Kool Tallinn linn 1167
## 4 Harju maakond 4 Keila Kool Keila linn 1133
## 5 Harju maakond 5 Tallinna Linnamäe Vene Lütseum Tallinn linn 1035
## 6 Harju maakond 248 Raasiku Põhikool Raasiku vald 137
## rahvaarv pindala
## 1 552927 4333
## 2 552927 4333
## 3 552927 4333
## 4 552927 4333
## 5 552927 4333
## 6 552927 4333 koos$osamaakonnas=koos$opilasi/koos$rahvaarv
sorditud=koos[order(koos$osamaakonnas), ]
head(sorditud)## maakond id koolinimi vald opilasi rahvaarv
## 138 Harju maakond 529 Prangli Põhikool Viimsi vald 10 552927
## 97 Harju maakond 499 Salu Kool Saue vald 20 552927
## 323 Pärnu maakond 535 Massiaru Algkool Häädemeeste vald 3 82598
## 87 Harju maakond 490 Hilariuse Kool Tallinn linn 22 552927
## 127 Harju maakond 488 Neeme Kool Jõelähtme vald 23 552927
## 106 Harju maakond 468 Harmi Põhikool Kõue vald 31 552927
## pindala osamaakonnas
## 138 4333 1.808557e-05
## 97 4333 3.617114e-05
## 323 4807 3.632049e-05
## 87 4333 3.978825e-05
## 127 4333 4.159681e-05
## 106 4333 5.606527e-05 tail(sorditud)## maakond id koolinimi vald opilasi
## 523 Võru maakond 26 Võru Kreutzwaldi Gümnaasium Võru linn 845
## 312 Põlva maakond 53 Põlva Ühisgümnaasium Põlva linn 716
## 141 Hiiu maakond 183 Käina Gümnaasium Käina vald 234
## 466 Valga maakond 25 Valga Põhikool Valga linn 850
## 386 Saare maakond 18 Kuressaare Gümnaasium Kuressaare linn 886
## 142 Hiiu maakond 121 Kärdla Ühisgümnaasium Kärdla linn 429
## rahvaarv pindala osamaakonnas
## 523 33452 2305 0.02526007
## 312 27448 2165 0.02608569
## 141 8482 1023 0.02758783
## 466 30123 2044 0.02821764
## 386 31317 2922 0.02829134
## 142 8482 1023 0.05057769