Population of Finland: Difference between revisions

Latest revision as of 05:56, 28 August 2019

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	0-4	267686
2	5-9	309010
3	10-14	305538
4	15-64	3430848
5	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

+ 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

@@ Line 1: / Line 1: @@
+[[Category:Population characteristics]]
+[[Category: CLAIH]]
+[[Category:Contains R code]]
+[[Category:Code under inspection]]
 {{variable|moderator = Virpi Kollanus}}
-[[Category: CLAIH]]
+==Question==
+What is the population size and age structure of the population of Finland? What is the life expectancy in the population?
-== Scope ==
+==Answer==
-Describes the population number in Finland.
+<t2b name="Population" index="Age,Observation" locations="Result" unit="#">
+-4|267686
+-9|309010
+-14|305538
+-64|3430848
+-79|902127
++|302710
+</t2b>
-'''Dimensions and boundaries'''
+== Rationale ==
-*Time
+* [http://pxweb2.stat.fi/database/StatFin/vrm/vaerak/vaerak_fi.asp Statistics of Finland]
-**Year 2009
+* Population of Finland in the end of 2018
-**Year 2030
-*Spatial
-**250*250 m grids?
-*Age
-**1-year interval
-*Gender
-**Male
-**Female
-== Definition ==
+=== Data===
-=== Data ===
+In 2017, the life expectancy for children born was 78.7 years for males and 84.2 years for females.
-*[http://pxweb2.stat.fi/database/StatFin/vrm/vaerak/vaerak_fi.asp Statistics of Finland]
+=== Formula ===
-=== Causality ===
+'''Total population in Finland
+<rcode name="population" embed=1>
-=== Unit ===
+# This is code Op_en2949/population on page [[Population of Finland]]
+library(OpasnetUtils)
-Persons
+# 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
+#                                        )
+#                          )
-=== Formula ===
+# Save the data presented in the table on this page as an ovariable
-'''Total population in Finland
+population <- Ovariable(
+  "population",
+  ddata="Op_en2949", subset="Population"
+)
-<rcode>
+objects.store(population)
-Age <- as.factor(c("0-4","5-9","10-14","15-19","20-24","25-29","30-34","35-39","40-44","45-49","50-54","55-59",
+cat("Ovariable population stored.\n")
-"60-64","65-69","70-74","75-79","80+","All"))
-Result <- c(298114,287786,302423,334636,324472,344634,337970,310768,358754,378341,378037,388165,396886,258319,225043,
-,247408,5351427)
-pop <- data.frame(Age,Result)
-pop
 </rcode>
@@ Line 115: / Line 138: @@
 print(q)
 </rcode>
-== Result ==
-{{resultlink}}
-{| {{prettytable}}
-|+ '''Population of Finland during the H1N1 pandemic and related narcolepsy cluster (~2009-2010?)<ref name="THL report">Kansallisen
-narkolepsiatyöryhmän
-väliraportti 31.1.2011</ref> (See [[H1N1 vaccination coverage in Finland]] also)'''
-! Age group !! Population
-|----
-| 0-4 || 298114
-|----
-| 5-9 || 287786
-|----
-| 10-14 || 302423
-|----
-| 15-19 || 334636
-|----
-| 20-24 || 324472
-|----
-| 25-29 || 344634
-|----
-| 30-34 || 337970
-|----
-| 35-39 || 310768
-|----
-| 40-44 || 358754
-|----
-| 45-49 || 378341
-|----
-| 50-54 || 378037
-|----
-| 55-59 || 388165
-|----
-| 60-64 || 396886
-|----
-| 65-69 || 258319
-|----
-| 70-74 || 225043
-|----
-| 75-79 || 179671
-|----
-| 80- || 247408
-|----
-| All || 5351427
-|----
-|}
 ==See also==
-[http://en.opasnet.org/w/File:Population_of_Finalnd_2008.xls Population 2008 with one year intervals male/female, excel sheet]
+* [http://en.opasnet.org/w/File:Population_of_Finalnd_2008.xls Population 2008 with one year intervals male/female, excel sheet]
+* www.stat.fi ->   [http://pxweb2.stat.fi/Dialog/varval.asp?ma=050_vaerak_tau_104_fi&ti=V%E4est%F6+i%E4n+%281%2Dv%2E%29+ja+sukupuolen+mukaan+alueittain+1980+%2D+2008&path=../Database/StatFin/vrm/vaerak/&lang=3&multilang=fi PX Web database]
-www.stat.fi ->   [http://pxweb2.stat.fi/Dialog/varval.asp?ma=050_vaerak_tau_104_fi&ti=V%E4est%F6+i%E4n+%281%2Dv%2E%29+ja+sukupuolen+mukaan+alueittain+1980+%2D+2008&path=../Database/StatFin/vrm/vaerak/&lang=3&multilang=fi PX Web database]
 ==References==
 <references/>