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
library(reshape)
## Warning: package 'reshape' was built under R version 3.3.2
pikk=melt(synnid, id="Maakond")
head(pikk)
## 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
tapply(pikk$value, pikk$variable, sum)
## a2005 a2006 a2007 a2008 a2009 a2010 a2011 a2012 a2013 a2014 a2015
## 14350 14877 15775 16028 15763 15825 14679 14056 13531 13551 13906
tapply(pikk$value, pikk$Maakond, sum)
## Harju maakond Hiiu maakond Ida-Viru maakond
## 75952 842 15171
## Jõgeva maakond Järva maakond Lääne-Viru maakond
## 3300 3655 7135
## Lääne maakond Põlva maakond Pärnu maakond
## 2543 2966 9865
## Rapla maakond Saare maakond Tartu maakond
## 4070 3632 20748
## Valga maakond Viljandi maakond Võru maakond
## 3391 5371 3700
lyhike=cast(pikk, 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