#install.packages("xlsx")
library(xlsx)
## Warning: package 'xlsx' was built under R version 3.3.2
## Loading required package: rJava
## Warning: package 'rJava' was built under R version 3.3.2
## Loading required package: xlsxjars
## Warning: package 'xlsxjars' was built under R version 3.3.2
surmad=read.xlsx(file.choose(), sheetIndex = 1, encoding = "UTF-8")
surmad
## Maakond X2005 X2006 X2007 X2008 X2009 X2010 X2011 X2012
## 1 Harju maakond 5960 5975 6148 5778 5661 5459 5489 5463
## 2 Hiiu maakond 120 138 135 117 138 128 114 106
## 3 Ida-Viru maakond 2660 2549 2636 2538 2496 2455 2255 2356
## 4 Jõgeva maakond 506 523 499 486 452 435 426 484
## 5 Järva maakond 511 502 487 473 431 482 379 434
## 6 Lääne maakond 383 401 412 360 357 326 327 311
## 7 Lääne-Viru maakond 915 932 912 930 844 829 807 775
## 8 Põlva maakond 514 463 499 485 423 408 368 420
## 9 Pärnu maakond 1190 1217 1142 1140 1072 1060 1081 1084
## 10 Rapla maakond 527 498 479 448 465 409 424 403
## 11 Saare maakond 472 454 490 470 441 425 406 404
## 12 Tartu maakond 1696 1726 1698 1679 1618 1620 1544 1531
## 13 Valga maakond 527 559 515 486 419 471 478 491
## 14 Viljandi maakond 762 798 771 756 726 704 700 654
## 15 Võru maakond 572 581 585 526 538 577 446 534
## X2013 X2014 X2015
## 1 5396 5607 5633
## 2 116 120 116
## 3 2206 2217 2197
## 4 446 451 429
## 5 429 397 417
## 6 353 370 324
## 7 814 788 787
## 8 438 409 404
## 9 1063 1079 1086
## 10 462 406 387
## 11 456 419 408
## 12 1454 1572 1501
## 13 483 450 410
## 14 634 725 629
## 15 494 474 507
#install.packages("XML")
library(XML)
## Warning: package 'XML' was built under R version 3.3.2
inimesed=xmlToDataFrame("http://www.tlu.ee/~jaagup/andmed/muu/inimesed.xml")
inimesed
## eesnimi perenimi synd
## 1 Juku Juurikas 1963
## 2 Juku Kaalikas 1961
## 3 Kalle Kaalikas 1975
## 4 Mari Maasikas 1981
## 5 Oskar Ohakas 1971
juur=xmlRoot(xmlParse("http://www.tlu.ee/~jaagup/andmed/muu/inimesed.xml"))
juur
## <inimesed>
## <inimene>
## <eesnimi>Juku</eesnimi>
## <perenimi>Juurikas</perenimi>
## <synd>1963</synd>
## </inimene>
## <inimene>
## <eesnimi>Juku</eesnimi>
## <perenimi>Kaalikas</perenimi>
## <synd>1961</synd>
## </inimene>
## <inimene>
## <eesnimi>Kalle</eesnimi>
## <perenimi>Kaalikas</perenimi>
## <synd>1975</synd>
## </inimene>
## <inimene>
## <eesnimi>Mari</eesnimi>
## <perenimi>Maasikas</perenimi>
## <synd>1981</synd>
## </inimene>
## <inimene>
## <eesnimi>Oskar</eesnimi>
## <perenimi>Ohakas</perenimi>
## <synd>1971</synd>
## </inimene>
## </inimesed>
juur[[1]] #esimene alamelement
## <inimene>
## <eesnimi>Juku</eesnimi>
## <perenimi>Juurikas</perenimi>
## <synd>1963</synd>
## </inimene>
juur[[1]][[2]]
## <perenimi>Juurikas</perenimi>
juur[[1]][[2]][[1]] #esimese inimese teise alamelemendi(perekonnanime) väärtus
## Juurikas
#install.packages("rjson")
library(rjson)
## Warning: package 'rjson' was built under R version 3.3.2
inimene=fromJSON(file="http://www.tlu.ee/~jaagup/andmed/muu/inimene.json")
inimene
## $eesnimi
## [1] "Juku"
##
## $pikkus
## [1] 156
inimene$pikkus
## [1] 156
inimene=fromJSON(file="http://www.tlu.ee/~jaagup/andmed/muu/inimene2.json")
inimene$aadress$vald
## [1] "Kambja"
#install.packages("RMySQL")
library(RMySQL)
## Warning: package 'RMySQL' was built under R version 3.3.2
## Loading required package: DBI
## Warning: package 'DBI' was built under R version 3.3.2
mysqlconnection = dbConnect(MySQL(), user = 'if16', password = 'ifikad16',
dbname = 'if16_jaagup_3',
host = 'greeny.cs.tlu.ee')
dbListTables(mysqlconnection)
## [1] "abiilm" "haldusyksused" "harkuilm"
## [4] "ilmharkus" "k_ainekursused" "k_klass_kursusel"
## [7] "k_klassid" "k_opetajad" "koolevallas"
## [10] "koolid" "korstnapyhkimine" "kuuilm"
## [13] "maailmajaod" "maakonnad" "opilasi_maakonnas"
## [16] "paevharkus" "riigid" "seened"
## [19] "toidukohad" "vallad"
yksused=dbSendQuery(mysqlconnection, "SELECT * FROM haldusyksused")
fetch(yksused, n = 3)
## nimetus rahvaarv pindala
## 1 Keila linn 9454 10.46
## 2 Pärnu linn 43966 32.22
## 3 Tallinn linn 400292 158.27
synnid=read.table("http://www.tlu.ee/~jaagup/andmed/sots/synnid.csv",
header=TRUE, sep=";", encoding="UTF-8")
synnid
## Maakond a2005 a2006 a2007 a2008 a2009 a2010 a2011 a2012
## 1 Harju maakond 6221 6795 7249 7421 7238 7407 6899 6589
## 2 Hiiu maakond 95 82 80 93 72 96 98 58
## 3 Ida-Viru maakond 1639 1498 1590 1490 1453 1336 1263 1259
## 4 Jõgeva maakond 328 319 305 332 342 313 283 280
## 5 Järva maakond 392 365 356 388 355 385 342 303
## 6 Lääne maakond 240 252 247 277 246 242 231 208
## 7 Lääne-Viru maakond 631 712 717 699 688 693 647 636
## 8 Põlva maakond 299 293 281 305 309 297 281 269
## 9 Pärnu maakond 851 909 967 1028 1023 959 883 837
## 10 Rapla maakond 358 362 414 437 405 441 359 342
## 11 Saare maakond 332 345 349 347 362 356 354 322
## 12 Tartu maakond 1772 1736 1958 1994 2084 2081 1906 1838
## 13 Valga maakond 318 347 318 348 330 312 315 295
## 14 Viljandi maakond 508 495 566 530 517 530 479 482
## 15 Võru maakond 366 367 378 339 339 377 339 338
## a2013 a2014 a2015
## 1 6534 6735 6864
## 2 50 48 70
## 3 1239 1182 1222
## 4 255 254 289
## 5 227 279 263
## 6 198 184 218
## 7 617 501 594
## 8 224 202 206
## 9 801 800 807
## 10 348 313 291
## 11 304 255 306
## 12 1826 1806 1747
## 13 267 263 278
## 14 375 436 453
## 15 266 293 298
#install.packages("reshape")
library(reshape)
## Warning: package 'reshape' was built under R version 3.3.2
pikktabel=melt(synnid, id="Maakond")
head(pikktabel)
## Maakond variable value
## 1 Harju maakond a2005 6221
## 2 Hiiu maakond a2005 95
## 3 Ida-Viru maakond a2005 1639
## 4 Jõgeva maakond a2005 328
## 5 Järva maakond a2005 392
## 6 Lääne maakond a2005 240
lyhike=cast(pikktabel, Maakond~variable)
lyhike
## Maakond a2005 a2006 a2007 a2008 a2009 a2010 a2011 a2012
## 1 Harju maakond 6221 6795 7249 7421 7238 7407 6899 6589
## 2 Hiiu maakond 95 82 80 93 72 96 98 58
## 3 Ida-Viru maakond 1639 1498 1590 1490 1453 1336 1263 1259
## 4 Jõgeva maakond 328 319 305 332 342 313 283 280
## 5 Järva maakond 392 365 356 388 355 385 342 303
## 6 Lääne-Viru maakond 631 712 717 699 688 693 647 636
## 7 Lääne maakond 240 252 247 277 246 242 231 208
## 8 Põlva maakond 299 293 281 305 309 297 281 269
## 9 Pärnu maakond 851 909 967 1028 1023 959 883 837
## 10 Rapla maakond 358 362 414 437 405 441 359 342
## 11 Saare maakond 332 345 349 347 362 356 354 322
## 12 Tartu maakond 1772 1736 1958 1994 2084 2081 1906 1838
## 13 Valga maakond 318 347 318 348 330 312 315 295
## 14 Viljandi maakond 508 495 566 530 517 530 479 482
## 15 Võru maakond 366 367 378 339 339 377 339 338
## a2013 a2014 a2015
## 1 6534 6735 6864
## 2 50 48 70
## 3 1239 1182 1222
## 4 255 254 289
## 5 227 279 263
## 6 617 501 594
## 7 198 184 218
## 8 224 202 206
## 9 801 800 807
## 10 348 313 291
## 11 304 255 306
## 12 1826 1806 1747
## 13 267 263 278
## 14 375 436 453
## 15 266 293 298
tapply(pikktabel$value, pikktabel$variable, sum)
## a2005 a2006 a2007 a2008 a2009 a2010 a2011 a2012 a2013 a2014 a2015
## 14350 14877 15775 16028 15763 15825 14679 14056 13531 13551 13906
surmad=read.table("http://www.tlu.ee/~jaagup/andmed/sots/surmad.csv",
header=TRUE, sep=";", encoding="UTF-8")
surmad
## Maakond a2005 a2006 a2007 a2008 a2009 a2010 a2011 a2012
## 1 Harju maakond 5960 5975 6148 5778 5661 5459 5489 5463
## 2 Hiiu maakond 120 138 135 117 138 128 114 106
## 3 Ida-Viru maakond 2660 2549 2636 2538 2496 2455 2255 2356
## 4 Jõgeva maakond 506 523 499 486 452 435 426 484
## 5 Järva maakond 511 502 487 473 431 482 379 434
## 6 Lääne maakond 383 401 412 360 357 326 327 311
## 7 Lääne-Viru maakond 915 932 912 930 844 829 807 775
## 8 Põlva maakond 514 463 499 485 423 408 368 420
## 9 Pärnu maakond 1190 1217 1142 1140 1072 1060 1081 1084
## 10 Rapla maakond 527 498 479 448 465 409 424 403
## 11 Saare maakond 472 454 490 470 441 425 406 404
## 12 Tartu maakond 1696 1726 1698 1679 1618 1620 1544 1531
## 13 Valga maakond 527 559 515 486 419 471 478 491
## 14 Viljandi maakond 762 798 771 756 726 704 700 654
## 15 Võru maakond 572 581 585 526 538 577 446 534
## a2013 a2014 a2015
## 1 5396 5607 5633
## 2 116 120 116
## 3 2206 2217 2197
## 4 446 451 429
## 5 429 397 417
## 6 353 370 324
## 7 814 788 787
## 8 438 409 404
## 9 1063 1079 1086
## 10 462 406 387
## 11 456 419 408
## 12 1454 1572 1501
## 13 483 450 410
## 14 634 725 629
## 15 494 474 507
koos=merge(synnid, surmad, by.x="Maakond", by.y = "Maakond")
koos
## Maakond a2005.x a2006.x a2007.x a2008.x a2009.x a2010.x
## 1 Harju maakond 6221 6795 7249 7421 7238 7407
## 2 Hiiu maakond 95 82 80 93 72 96
## 3 Ida-Viru maakond 1639 1498 1590 1490 1453 1336
## 4 Jõgeva maakond 328 319 305 332 342 313
## 5 Järva maakond 392 365 356 388 355 385
## 6 Lääne-Viru maakond 631 712 717 699 688 693
## 7 Lääne maakond 240 252 247 277 246 242
## 8 Põlva maakond 299 293 281 305 309 297
## 9 Pärnu maakond 851 909 967 1028 1023 959
## 10 Rapla maakond 358 362 414 437 405 441
## 11 Saare maakond 332 345 349 347 362 356
## 12 Tartu maakond 1772 1736 1958 1994 2084 2081
## 13 Valga maakond 318 347 318 348 330 312
## 14 Viljandi maakond 508 495 566 530 517 530
## 15 Võru maakond 366 367 378 339 339 377
## a2011.x a2012.x a2013.x a2014.x a2015.x a2005.y a2006.y a2007.y a2008.y
## 1 6899 6589 6534 6735 6864 5960 5975 6148 5778
## 2 98 58 50 48 70 120 138 135 117
## 3 1263 1259 1239 1182 1222 2660 2549 2636 2538
## 4 283 280 255 254 289 506 523 499 486
## 5 342 303 227 279 263 511 502 487 473
## 6 647 636 617 501 594 915 932 912 930
## 7 231 208 198 184 218 383 401 412 360
## 8 281 269 224 202 206 514 463 499 485
## 9 883 837 801 800 807 1190 1217 1142 1140
## 10 359 342 348 313 291 527 498 479 448
## 11 354 322 304 255 306 472 454 490 470
## 12 1906 1838 1826 1806 1747 1696 1726 1698 1679
## 13 315 295 267 263 278 527 559 515 486
## 14 479 482 375 436 453 762 798 771 756
## 15 339 338 266 293 298 572 581 585 526
## a2009.y a2010.y a2011.y a2012.y a2013.y a2014.y a2015.y
## 1 5661 5459 5489 5463 5396 5607 5633
## 2 138 128 114 106 116 120 116
## 3 2496 2455 2255 2356 2206 2217 2197
## 4 452 435 426 484 446 451 429
## 5 431 482 379 434 429 397 417
## 6 844 829 807 775 814 788 787
## 7 357 326 327 311 353 370 324
## 8 423 408 368 420 438 409 404
## 9 1072 1060 1081 1084 1063 1079 1086
## 10 465 409 424 403 462 406 387
## 11 441 425 406 404 456 419 408
## 12 1618 1620 1544 1531 1454 1572 1501
## 13 419 471 478 491 483 450 410
## 14 726 704 700 654 634 725 629
## 15 538 577 446 534 494 474 507
a2015=koos[, c("Maakond", "a2015.x", "a2015.y")]
a2015
## Maakond a2015.x a2015.y
## 1 Harju maakond 6864 5633
## 2 Hiiu maakond 70 116
## 3 Ida-Viru maakond 1222 2197
## 4 Jõgeva maakond 289 429
## 5 Järva maakond 263 417
## 6 Lääne-Viru maakond 594 787
## 7 Lääne maakond 218 324
## 8 Põlva maakond 206 404
## 9 Pärnu maakond 807 1086
## 10 Rapla maakond 291 387
## 11 Saare maakond 306 408
## 12 Tartu maakond 1747 1501
## 13 Valga maakond 278 410
## 14 Viljandi maakond 453 629
## 15 Võru maakond 298 507
synnid2=koos[, c("Maakond", paste("a",2005:2015, ".x", sep=""))]
koospikk=melt(koos, id="Maakond")
head(koospikk)
## Maakond variable value
## 1 Harju maakond a2005.x 6221
## 2 Hiiu maakond a2005.x 95
## 3 Ida-Viru maakond a2005.x 1639
## 4 Jõgeva maakond a2005.x 328
## 5 Järva maakond a2005.x 392
## 6 Lääne-Viru maakond a2005.x 631
koospikk$aasta=substring(koospikk$variable, 2, 5)
koospikk$syndmus=ifelse(substring(koospikk$variable, 7, 7)=="x", "synnid", "surmad")
koospikk$variable=NULL
head(koospikk)
## Maakond value aasta syndmus
## 1 Harju maakond 6221 2005 synnid
## 2 Hiiu maakond 95 2005 synnid
## 3 Ida-Viru maakond 1639 2005 synnid
## 4 Jõgeva maakond 328 2005 synnid
## 5 Järva maakond 392 2005 synnid
## 6 Lääne-Viru maakond 631 2005 synnid
names(koospikk)
## [1] "Maakond" "value" "aasta" "syndmus"
row.names(koospikk)
## [1] "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11"
## [12] "12" "13" "14" "15" "16" "17" "18" "19" "20" "21" "22"
## [23] "23" "24" "25" "26" "27" "28" "29" "30" "31" "32" "33"
## [34] "34" "35" "36" "37" "38" "39" "40" "41" "42" "43" "44"
## [45] "45" "46" "47" "48" "49" "50" "51" "52" "53" "54" "55"
## [56] "56" "57" "58" "59" "60" "61" "62" "63" "64" "65" "66"
## [67] "67" "68" "69" "70" "71" "72" "73" "74" "75" "76" "77"
## [78] "78" "79" "80" "81" "82" "83" "84" "85" "86" "87" "88"
## [89] "89" "90" "91" "92" "93" "94" "95" "96" "97" "98" "99"
## [100] "100" "101" "102" "103" "104" "105" "106" "107" "108" "109" "110"
## [111] "111" "112" "113" "114" "115" "116" "117" "118" "119" "120" "121"
## [122] "122" "123" "124" "125" "126" "127" "128" "129" "130" "131" "132"
## [133] "133" "134" "135" "136" "137" "138" "139" "140" "141" "142" "143"
## [144] "144" "145" "146" "147" "148" "149" "150" "151" "152" "153" "154"
## [155] "155" "156" "157" "158" "159" "160" "161" "162" "163" "164" "165"
## [166] "166" "167" "168" "169" "170" "171" "172" "173" "174" "175" "176"
## [177] "177" "178" "179" "180" "181" "182" "183" "184" "185" "186" "187"
## [188] "188" "189" "190" "191" "192" "193" "194" "195" "196" "197" "198"
## [199] "199" "200" "201" "202" "203" "204" "205" "206" "207" "208" "209"
## [210] "210" "211" "212" "213" "214" "215" "216" "217" "218" "219" "220"
## [221] "221" "222" "223" "224" "225" "226" "227" "228" "229" "230" "231"
## [232] "232" "233" "234" "235" "236" "237" "238" "239" "240" "241" "242"
## [243] "243" "244" "245" "246" "247" "248" "249" "250" "251" "252" "253"
## [254] "254" "255" "256" "257" "258" "259" "260" "261" "262" "263" "264"
## [265] "265" "266" "267" "268" "269" "270" "271" "272" "273" "274" "275"
## [276] "276" "277" "278" "279" "280" "281" "282" "283" "284" "285" "286"
## [287] "287" "288" "289" "290" "291" "292" "293" "294" "295" "296" "297"
## [298] "298" "299" "300" "301" "302" "303" "304" "305" "306" "307" "308"
## [309] "309" "310" "311" "312" "313" "314" "315" "316" "317" "318" "319"
## [320] "320" "321" "322" "323" "324" "325" "326" "327" "328" "329" "330"
vordlustabel=cast(koospikk, Maakond+aasta~syndmus)
head(vordlustabel)
## Maakond aasta surmad synnid
## 1 Harju maakond 2005 5960 6221
## 2 Harju maakond 2006 5975 6795
## 3 Harju maakond 2007 6148 7249
## 4 Harju maakond 2008 5778 7421
## 5 Harju maakond 2009 5661 7238
## 6 Harju maakond 2010 5459 7407
maakonnamax=cast(koospikk, Maakond~syndmus, max)
maakonnamax #iga maakonna kohta suurim sündide arv aasta jooksul
## Maakond surmad synnid
## 1 Harju maakond 6148 7421
## 2 Hiiu maakond 138 98
## 3 Ida-Viru maakond 2660 1639
## 4 Jõgeva maakond 523 342
## 5 Järva maakond 511 392
## 6 Lääne-Viru maakond 932 717
## 7 Lääne maakond 412 277
## 8 Põlva maakond 514 309
## 9 Pärnu maakond 1217 1028
## 10 Rapla maakond 527 441
## 11 Saare maakond 490 362
## 12 Tartu maakond 1726 2084
## 13 Valga maakond 559 348
## 14 Viljandi maakond 798 566
## 15 Võru maakond 585 378
#Leidke iga maakonna sündide summa
ained=c("matemaatika", "emakeel", "laulmine")
opilased=data.frame(eesnimi=c("Juku", "Kati", "Mati"),
perekonnanimi=c("Kask", "Saar", "Tamm"))
kataloog="d:/jaagup/R/ekool/"
library(xlsx)
sapply(ained, function(aine){
write.xlsx(opilased, paste(kataloog, aine, ".xlsx", sep=""),
sheetName = "leht1", row.names = FALSE)
})
## $matemaatika
## NULL
##
## $emakeel
## NULL
##
## $laulmine
## NULL
list.files(kataloog)
## [1] "emakeel.xlsx" "emakeel2.xlsx" "laulmine.xlsx"
## [4] "laulmine2.xlsx" "matemaatika.xlsx" "matemaatika2.xlsx"
## [7] "selgitus.txt"
list.files(kataloog, pattern="xlsx")
## [1] "emakeel.xlsx" "emakeel2.xlsx" "laulmine.xlsx"
## [4] "laulmine2.xlsx" "matemaatika.xlsx" "matemaatika2.xlsx"
#read.xlsx(paste(kataloog,"matemaatika.xlsx", sep=""), sheetIndex=1)
tulemused=sapply(ained, function(aine){
ainetabel=read.xlsx(paste(kataloog, aine, "2.xlsx", sep=""), sheetName = "leht1")
ainetabel[, 3]
})
koondtabel=cbind(opilased, tulemused)
koondtabel
## eesnimi perekonnanimi matemaatika emakeel laulmine
## 1 Juku Kask 3 3 5
## 2 Kati Saar 4 4 5
## 3 Mati Tamm 3 5 5