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 of Finland?

Answer

Population(#)

Obs	Age	Amount
1	0-4	267686
2	5-9	309010
3	10-14	305538
4	15-24	616543
5	25-64	2814305
6	65-79	902127
7	80+	302710
8	All	5517919

Definition

• Statistics of Finland
• Population of Finland during the H1N1 pandemic and related narcolepsy cluster (~2009-2010?) (See H1N1 vaccination coverage in Finland also)

Unit

# persons

Formula

Total population in Finland

+ Show code- Hide code library(OpasnetUtils) data <- tidy(op_baseGetData("opasnet_base", "Op_en2949"), objname = "population") population <- new("ovariable", name = "population", data = data) print(population@data) objects.put(population) cat("Object population initiated. Save the page key for further use.\n")

Default run: mzGRDt4VreHPefKI

Total population of Finland, taken from Statistics 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 # ) # ) population <- Ovariable( "population", ddata="Op_en2949/pop" ) 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

Related files

<mfanonymousfilelist></mfanonymousfilelist>