Population of Finland

Question

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

Population(#)
ObsAgeResult
10-4267686
25-9309010
310-14305538
415-643430848
565-79902127
680+302710

Rationale

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

 ``` # 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 ```# (C) 2011 Leo Lahti 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) ```