Population of Finland

This page is a knowledge crystal of subtype variable. The page identifier is Op_en2949
Moderator:Virpi Kollanus (see all)
Upload data {{#opasnet_base_link:Op_en2949}}

Question

What is the population size and age structure of the population of Finland? What is the life expectancy in the population?

Answer

Population(#)

Obs	Age	Result
1	age 0-4	267686
2	age 5-9	309010
3	age 10-14	305538
4	age 15-64	3430848
5	age 65-79	902127
6	80+	302710

Rationale

• Statistics of Finland
• Population of Finland in the end of 2018

Data

In 2017, the life expectancy for children born was 78.7 years for males and 84.2 years for females.

Formula

Total population in Finland

+ Show code- Hide code # This is code Op_en2949/population on page [[Population of Finland]] library(OpasnetUtils) # Read population data 2018 from Statistics Finland # Run this code on your computer to get the data in the answer. #vae <- re#ad.csv("https://pxnet2.stat.fi:443/PXWeb/sq/ac3373d0-e303-4c67-b32a-73c6d26df809", skip=2, fileEncoding="ISO-8859-1") #vae$Ikä <- as.numeric(gsub(" -","",as.character(vae$Ikä))) #population <-data.frame(Age=c("0-4", "5-9", "10-14", "15-24", "25-64", "65-79", "80+", "Total population", "Females", "Males"), # N.of.people=c( # sum(vae$X2018[vae$Ikä>=0 & vae$Ikä <5]), # Age 0-4 # sum(vae$X2018[vae$Ikä>=5 & vae$Ikä <10]), # Age 5-9 # sum(vae$X2018[vae$Ikä>=10 & vae$Ikä <15]), # Age 5-14 # sum(vae$X2018[vae$Ikä>=15 & vae$Ikä <25]), # Age 15-24 # sum(vae$X2018[vae$Ikä>=25 & vae$Ikä <65]), # Age 25-64 # sum(vae$X2018[vae$Ikä>=65 & vae$Ikä <80]), # Age 65-79 # sum(vae$X2018[vae$Ikä>=80 & vae$Ikä <101]), # Age 80+ # sum(vae$X2018), # Total population # sum(vae$X2018[vae$Sukupuoli=="Naiset"]), #Females # sum(vae$X2018[!(vae$Sukupuoli=="Naiset")]) #Non female # ) # ) # Save the data presented in the table on this page as an ovariable population <- Ovariable( "population", ddata="Op_en2949", subset="Population" ) objects.store(population) cat("Ovariable population stored.\n")

Population parameters per municipality

Which year (1980-2010)?: Which parameter to show?: Elävänä syntyneet Kuolleet Luonnollinen väestönlisäys Kuntien välinen tulomuutto Kuntien välinen lähtömuutto Kuntien välinen nettomuutto Nettosiirtolaisuus Kokonaisnettomuutto Väestönlisäys Väkiluvun korjaus Kokonaismuutos Väkiluku + Show code- Hide code # (C) 2011 Leo Lahti <leo.lahti[at]iki.fi> All rights reserved. # License: FreeBSD, http://en.wikipedia.org/wiki/BSD_licenses # Tama esimerkki on testattu sorvi-paketin versiolla 0.1.23 # Esimerkki Suomen kuntatason vaestonkasvutilastojen (Tilastokeskus) # visualisoinnista Maanmittauslaitoksen karttadatalla (vuonna 2010) # Lataa kirjastoja library(sorvi) library(OpasnetBaseUtils) ############################################### # Lue Suomen kuntarajat SpatialPolygon-muodossa # (C) Maanmittauslaitos 2011 # http://www.maanmittauslaitos.fi/aineistot-palvelut/digitaaliset-tuotteet/ilmaiset-aineistot/hankinta data(MML) sp <- MML[["1_milj_Shape_etrs_shape"]][["kunta1_p"]] ################################################# # Lue kuntatason vaestonkasvutiedot tilastokeskuksen StatFin-tietokannasta # http://www.stat.fi/tup/statfin/index.html # PC Axis-muodossa px <- statfin.px("vrm/synt/080_synt_tau_203_fi.px") # statfin.px-funktio käyttää soRvin read.px-funktiota hakemaan dataa URLista, joka alkaa "http://pxweb2.stat.fi/database/StatFin/" # URLin loppuosa pitää antaa statfin.px:lle parametrina. # Poimi taulukosta halutut tiedot # pxs <- subset(as.data.frame(px), Väestönmuutos.ja.väkiluku == "Luonnollinen väestönlisäys" & Vuosi == year) pxs <- subset(as.data.frame(px), Väestönmuutos.ja.väkiluku == parameter & Vuosi == year) # Putsaa data vaestonkasvu <- preprocess.px(pxs) ################################################ # Lisaa tiedot karttaobjektiin sp@data$vaestonkasvu <- vaestonkasvu$dat[match(sp$Kunta.FI, vaestonkasvu$Alue)] # Korvaa puuttuvat arvot nollalla sp[["vaestonkasvu"]][is.na(sp[["vaestonkasvu"]])] <- 0 ################################################ # Maarittele varipaletti my.palette <- colorRampPalette(c("blue", "white", "red"), space = "rgb") ncol <- 40 # Number of colors ################################################# # Piirra kuva varname <- "vaestonkasvu" int <- max(abs(sp[[varname]])) q <- spplot(sp, varname, col.regions = my.palette(ncol), main = paste(parameter, year, sep=" "), colorkey = TRUE, lwd = .4, col = "black", at = seq(0 - int, 0 + int, length = ncol) ) print(q)

See also

• Population 2008 with one year intervals male/female, excel sheet
• www.stat.fi -> PX Web database