Population of Finland: Difference between revisions

From Opasnet
Jump to navigation Jump to search
(New page: {{variable}} == Scope == Describes the population number in Finland. '''Dimensions and boundaries''' *Year *Age **1-year interval *Gender **Male **Female == Definition == === Data ==...)
 
 
(45 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==


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


== 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
# 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"]]
#################################################


=== Unit ===
# 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)


Persons
################################################


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


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


== Result ==
# 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)
)


If possible, a numerical expression or distribution.
print(q)
</rcode>


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


Links to relevant information that does not belong to ''Definition''.
* [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"