Image:Fin population by age 2005.png

[edit] Yhteenveto

[edit] Summary

[edit] R source

 # R source (www.r-project.org)
 m <- c(145596,149894,167327,164118,170710,169408,158395,176975,191803,191198,196815,
        207826,145517,113204,90986,70909,40013,15887,5769)
 w <- c(139353,143522,161212,156824,163226,161766,150595,170779,185979,187897,196158,
        209062,152460,129230,114778,109611,83845,44605,22328)
 a <- c("0-4","5-9","10-14","15-19","20-24","25-29","30-34","35-39","40-44","45-49",
        "50-54","55-59","60-64","65-69","70-74","75-79","80-84","85-89","90-")
 png("fin_population_by_age.png", width = 480, height = 480*1.2) 
 par(mfcol=c(1,2),mar=c(2,1.2,1,1.2))
 y <- barplot(-m,space=0,horiz=T,xlim=c(-210000,0),axes=F,yaxs="i",col="steelblue3")
 axis(1,at=-4:0*50000,labels=c("200 000","","100 000","","0"))
 barplot(w,space=0,horiz=T,axes=F,yaxs="i",col="steelblue1")
 axis(1,at=0:4*50000,labels=c("0","","100 000","","200 000"))
 axis(2,at=y,labels=a,tick=F,las=1,line=.1,hadj=.5)
 dev.off()

[edit] Licensing

I, the copyright holder of this work, hereby release it into the public domain. This applies worldwide. In case this is not legally possible: I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law. Afrikaans | Alemannisch | Aragonés | العربية | Asturianu | Български | Català | Česky | Cymraeg | Dansk | Deutsch | Eʋegbe | Ελληνικά | English | Español | Esperanto | Euskara | Estremeñu | فارسی | Français | Galego | 한국어 | हिन्दी | Hrvatski | Ido | Bahasa Indonesia | Íslenska | Italiano | עברית | Kurdî / كوردی | Latina | Lietuvių | Latviešu | Magyar | Македонски | Bahasa Melayu | Nederlands | ‪Norsk (bokmål)‬ | ‪Norsk (nynorsk)‬ | 日本語 | Polski | Português | Ripoarisch | Română | Русский | Shqip | Slovenčina | Slovenščina | Српски / Srpski | Svenska | ไทย | Tagalog | Türkçe | Українська | Tiếng Việt | Walon | ‪中文(简体)‬ | ‪中文(繁體)‬ | zh-yue-hant | +/-

• Demographics of Finland