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 in the end of 2018

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", subset="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

Related files

Population of Finland

Contents

Question

Answer

Definition

Unit

Formula

See also

References

Related files

Navigation menu