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 of Finland(#)
Obs	Age	Amount
1	0-4	298114
2	5-9	287786
3	10-14	302423
4	15-19	334636
5	20-24	324472
6	25-29	344634
7	30-34	337970
8	35-39	310768
9	40-44	358754
10	45-49	378341
11	50-54	378037
12	55-59	388165
13	60-64	396886
14	65-69	258319
15	70-74	225043
16	75-79	179671
17	80-	247408
18	All	5351427

Definition

Statistics of Finland
Population of Finland during the H1N1 pandemic and related narcolepsy cluster (~2009-2010?)^[1] (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
vae <- read.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-74", "70+", "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
                                        )
                          )

cat(population)

population <- Ovariable(
  "population",
  data=population
)

objects.store(population)
cat("Ovariable population stored.\n")

Population parameters per municipality

+ 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)

References

↑ Kansallisen narkolepsiatyöryhmän väliraportti 31.1.2011

Related files

[THL_report-1] Kansallisen narkolepsiatyöryhmän väliraportti 31.1.2011

[1]

Population of Finland

Contents

Question

Answer

Definition

Unit

Formula

See also

References

Related files

Navigation menu