Population of Finland: Difference between revisions

From Opasnet
Jump to navigation Jump to search
(→‎Result: result in Beneris format)
 
(41 intermediate revisions by 7 users not shown)
Line 1: Line 1:
{{variable}}
[[Category:Population characteristics]]
[[Category: CLAIH]]
[[Category:Contains R code]]
[[Category:Code under inspection]]
{{variable|moderator = Virpi Kollanus}}


== Scope ==
==Question==


Describes the population number in Finland.
What is the population size and age structure of the population of Finland? What is the life expectancy in the population?


'''Dimensions and boundaries'''
==Answer==


*Time
<t2b name="Population" index="Age,Observation" locations="Result" unit="#">
**Year 2009
0-4|267686
**Year 2030
5-9|309010
*Spatial
10-14|305538
**250*250 m grids?
15-64|3430848
*Age
65-79|902127
**1-year interval
80+|302710
*Gender
</t2b>
**Male
**Female


== Definition ==
== Rationale ==


=== Data ===
* [http://pxweb2.stat.fi/database/StatFin/vrm/vaerak/vaerak_fi.asp Statistics of Finland]
* Population of Finland in the end of 2018


*[http://pxweb2.stat.fi/database/StatFin/vrm/vaerak/vaerak_fi.asp Statistics of Finland]
=== Data===


=== Causality ===
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
<rcode name="population" embed=1>
# 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")
</rcode>
'''Population parameters per municipality
<rcode graphics="1" variables="
name:year|description:Which year (1980-2010)?|default:2010|
name:parameter|description:Which parameter to show?|type:selection|default:'Luonnollinen väestönlisäys'|options:'Elävänä syntyneet';Elävänä syntyneet;'Kuolleet';Kuolleet;'Luonnollinen väestönlisäys';Luonnollinen väestönlisäys;'Kuntien välinen tulomuutto';Kuntien välinen tulomuutto;'Kuntien välinen lähtömuutto';Kuntien välinen lähtömuutto;'Kuntien välinen nettomuutto';Kuntien välinen nettomuutto;'Nettosiirtolaisuus';Nettosiirtolaisuus;'Kokonaisnettomuutto';Kokonaisnettomuutto;'Väestönlisäys';Väestönlisäys;'Väkiluvun korjaus';Väkiluvun korjaus;'Kokonaismuutos';Kokonaismuutos;'Väkiluku';Väkiluku
">
# (C) 2011 Leo Lahti <leo.lahti[at]iki.fi> All rights reserved.
# License: FreeBSD, http://en.wikipedia.org/wiki/BSD_licenses


=== Unit ===
# Tama esimerkki on testattu sorvi-paketin versiolla 0.1.23


Persons
# Esimerkki Suomen kuntatason vaestonkasvutilastojen (Tilastokeskus)
# visualisoinnista Maanmittauslaitoksen karttadatalla (vuonna 2010)


=== Formula ===
# 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


Algebra or other explicit methods if possible
################################################
(e.g. [[Analytica]] code between the <nowiki>''<anacode></anacode>''</nowiki> delimiters).


== Result ==
# Maarittele varipaletti
my.palette <- colorRampPalette(c("blue", "white", "red"), space = "rgb")
ncol <- 40 # Number of colors


#################################################


Based on [[WHO mortality data]].
# 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)
)


{| {{prettytable}}
print(q)
|+ Population of Finland, year 2006.
</rcode>
|----
! Age group
! Male
! Female
|----
| All ages
| 2.578046e+006
| 2.688222e+006
|----
| 0
| 2.9679e+004
| 2.8585e+004
|----
| 1
| 2.9589e+004
| 2.8317e+004
|----
| 2
| 2.9389e+004
| 2.8145e+004
|----
| 3
| 2.8895e+004
| 2.7655e+004
|----
| 4
| 2.8819e+004
| 2.7468e+004
|----
| 5-9
| 1.48775e+005
| 1.42543e+005
|----
| 10-14
| 1.66242e+005
| 1.59946e+005
|----
| 15-19
| 1.65131e+005
| 1.58014e+005
|----
| 20-24
| 1.70285e+005
| 1.62685e+005
|----
| 25-29
| 1.69301e+005
| 1.6177e+005
|----
| 30-34
| 1.603e+005
| 1.51989e+005
|----
| 35-39
| 1.741e+005
| 1.67997e+005
|----
| 40-44
| 1.91361e+005
| 1.85532e+005
|----
| 45-49
| 1.90173e+005
| 1.87035e+005
|----
| 50-54
| 1.96544e+005
| 1.96084e+005
|----
| 55-59
| 2.06127e+005
| 2.07356e+005
|----
| 60-64
| 1.49366e+005
| 1.56139e+005
|----
| 65-69
| 1.17412e+005
| 1.33354e+005
|----
| 70-74
| 9.1169e+004
| 1.14678e+005
|----
| 75-79
| 7.1905e+004
| 1.09699e+005
|----
| 80-84
| 4.1144e+004
| 8.4416e+004
|----
| 85-89
| 1.6463e+004
| 4.6117e+004
|----
| 90-94
| 4986
| 1.8407e+004
|----
| 95 &amp;+
| 898
| 4297
|----
| Unknown
| 0
| 0
|----
|}


==See also==
==See also==


*[[CLAIH assessment]]
* [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]


==References==
==References==
Will appear here automatically, if cited above using the ''<nowiki><ref></ref></nowiki>'' tags.
Additional references can also be listed here.


<references/>
<references/>

Latest revision as of 05:56, 28 August 2019



Question

What is the population size and age structure of the population of Finland? What is the life expectancy in the population?

Answer

Population(#)
ObsAgeResult
10-4267686
25-9309010
310-14305538
415-643430848
565-79902127
680+302710

Rationale

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

Population parameters per municipality

Which year (1980-2010)?:

Which parameter to show?:

+ Show code

See also

References

Retrieved from "https://en.opasnet.org/index.php?title=Population_of_Finland&oldid=43263"