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 7: / Line 7: @@
 ==Question==
-What is the population of Finland?
+What is the population size and age structure of the population of Finland? What is the life expectancy in the population?
 ==Answer==
-<t2b index="Age,Observation" locations="Amount" unit="#">
+<t2b name="Population" index="Age,Observation" locations="Result" unit="#">
--4|298114
+-4|267686
--9|287786
+-9|309010
--14|302423
+-14|305538
--19|334636
+-64|3430848
--24|324472
+-79|902127
--29|344634
++|302710
--34|337970
--39|310768
--44|358754
--49|378341
--54|378037
--59|388165
--64|396886
--69|258319
--74|225043
--79|179671
--|247408
-All|5351427
 </t2b>
-== Definition ==
+== Rationale ==
 * [http://pxweb2.stat.fi/database/StatFin/vrm/vaerak/vaerak_fi.asp Statistics of Finland]
-* Population of Finland during the H1N1 pandemic and related narcolepsy cluster (~2009-2010?)<ref name="THL report">Kansallisen
+* Population of Finland in the end of 2018
-narkolepsiatyöryhmän väliraportti 31.1.2011</ref> (See [[H1N1 vaccination coverage in Finland]] also)
-=== Unit ===
+=== Data===
-<nowiki># persons</nowiki>
+In 2017, the life expectancy for children born was 78.7 years for males and 84.2 years for females.
 === Formula ===
@@ Line 46: / Line 33: @@
 '''Total population in Finland
-<rcode>
+<rcode name="population" embed=1>
-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")
-</rcode>
-Default run: mzGRDt4VreHPefKI
-'''Total population of Finland, taken from Statistics Finland.
-<rcode name="population">
 # This is code Op_en2949/population on page [[Population of Finland]]
 library(OpasnetUtils)
- # Read population data 2018 from Statistics Finland
+# 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")
+# Run this code on your computer to get the data in the answer.
-vae$Ikä <- as.numeric(gsub(" -","",as.character(vae$Ikä)))
+#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-74", "70+", "Total population", "Females", "Males"),
+#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(
+#                        N.of.people=c(
-                          sum(vae$X2018[vae$Ikä>=0 & vae$Ikä <5]), # Age 0-4
+#                          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ä>=5 & vae$Ikä <10]), # Age 5-9
-                                        sum(vae$X2018[vae$Ikä>=10 & vae$Ikä <15]), # Age 5-14
+#                                        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ä>=15 & vae$Ikä <25]), # Age 15-24
-                                        sum(vae$X2018[vae$Ikä>=25 & vae$Ikä <65]), # Age 25-64
+#                                        sum(vae$X2018[vae$Ikä>=25 & vae$Ikä <65]), # Age 25-64
-                                        sum(vae$X2018[vae$Ikä>=65 & vae$Ikä <75]), # Age 65-74
+#                                        sum(vae$X2018[vae$Ikä>=65 & vae$Ikä <80]), # Age 65-79
-                                        sum(vae$X2018[vae$Ikä>=70 & vae$Ikä <101]), # Age 70+
+#                                        sum(vae$X2018[vae$Ikä>=80 & vae$Ikä <101]), # Age 80+
-                                        sum(vae$X2018), # Total population
+#                                        sum(vae$X2018), # Total population
-                                        sum(vae$X2018[vae$Sukupuoli=="Naiset"]), #Females
+#                                        sum(vae$X2018[vae$Sukupuoli=="Naiset"]), #Females
-                                        sum(vae$X2018[!(vae$Sukupuoli=="Naiset")]) #Non female
+#                                        sum(vae$X2018[!(vae$Sukupuoli=="Naiset")]) #Non female
-                                        )
+#                                        )
-                          )
+#                          )
-cat(population)
+# Save the data presented in the table on this page as an ovariable
 population <- Ovariable(
    "population",
-   data=population
+   ddata="Op_en2949", subset="Population"
 )
@@ Line 174: / Line 147: @@
 <references/>
-==Related files==
-{{mfiles}}<!-- __OBI_TS:1369642917 -->