Wikipedia

Lêer:Population Development Germany.svg

Oorspronklike lêer ‎(SVG-lêer, normaalweg 1 350 × 810 piksels, lêergrootte: 65 KG)

Hierdie lêer kom vanaf Wikimedia Commons en kan ook in ander projekte gebruik word. Die beskrywing op die lêer se inligtingsblad word hieronder weergegee.

Opsomming

Beskrywing
Deutsch: Gesamtdeutsche Bevölkerungsentwicklung unterteilt in Geburten und Sterbefälle von 1950 bis 2022
English: German population development divided into births and deaths from 1950 to 2022
Datum
Bron Eie werk, data from Statistisches Bundesamt
Outeur Hi, future humans! (Besprekings · bydraes), R code inspired by Europol at Duits Wikipedia
Toestemming
(Hergebruik van die lêer)
w:af:Creative Commons
naamsvermelding insgelyks
This file is licensed under the Creative Commons Attribution-Share Alike 4.0 International license.
U is vry:
  • om te deel – die werk kopieer, versprei en deurgee
  • om te hermeng – om die werk aan te pas
Onder die volgende voorwaardes:
  • naamsvermelding – U moet die nodige krediet gee, 'n skakel na die lisensie verskaf en aandui of daar veranderinge aangebring is. U mag dit op enige redelike manier doen, maar nie op enige manier wat daarop dui dat die lisensiegewer u of u gebruik onderskryf nie.
  • insgelyks – As u die materiaal hermix, transformeer of voortbou, moet u u bydraes versprei onder die dieselfde of versoenbare lisensie as die oorspronklike.
Ander weergawes Deutsche version
SVG genesis
InfoField
 
The SVG code is valid.
 
This chart was created with R.
 
 This file uses embedded text that can be easily translated using a text editor.
Bronkode
InfoField

R code

svg("Population Development Germany.svg", width = 15, height = 9)

year <- seq(1901, 2022)
popdevelopment <- data.frame(year)
########################################
rownames(popdevelopment) <- year
popdevelopment[50:122, "born"] <- c(1116701, 1106380, 1105084, 1095029, 1109743, 1113408, 1137169, 1165555, 1175870, 1243922, 1261614, 1313505, 1316534, 1355595, 1357304, 1325386, 1318303, 1272276, 1214968, 1142366, 1047737, 1013396, 901657, 815969, 805500, 782310, 798334, 805496, 808619, 817217, 865789, 862100, 861275, 827933, 812292, 813803, 848232, 867969, 892993, 880459, 905675, 830019, 809114, 798447, 769603, 765221, 796013, 812173, 785034, 770744, 766999, 734475, 719250, 706721, 705622, 685795, 672724, 684862, 682514, 665126, 677947, 662685, 673544, 682069, 714927, 737575, 792141, 784901, 787523, 778090, 773144, 795492, 738856)
comment(popdevelopment$born) <- "Sources: 1950-  Federal Statistical Office Germany Tables 12612-0001"
########################################
popdevelopment[50:122, "died"] <- c(748329, 752697, 767639, 790654, 775291, 795938, 812111, 840195, 818418, 835402, 876721, 850300, 878814, 895070, 870319, 907882, 911984, 914417, 976521, 988092, 975664, 965623, 965689, 962988, 956573, 989649, 966873, 931155, 955550, 944474, 952371, 954436, 943832, 941032, 917299, 929649, 925426, 901291, 900627, 903441, 921445, 911245, 885443, 897270, 884661, 884588, 882843, 860389, 852382, 846330, 838797, 828541, 841686, 853946, 818271, 830227, 821627, 827155, 844439, 854544, 858768, 852328, 869582, 893825, 868356, 925200, 910902, 932272, 954874, 939520, 985572, 1023687, 1066317)
comment(popdevelopment$died) <- "Sources: 1950-  Federal Statistical Office Germany Tables 12613-0002"
########################################


years <- 1950:2022
par(mar = c(2.5, 6.5, 4.0, 0)) #bottom, left, top, right
plot(years, popdevelopment$born[50:122], ylim = c(500000, 1400000), bty = "l", type = "l", yaxs = "i", xlab = "", ylab = "", pch = 16, cex = 2, lab = c(10, 10, 1), col = "forestgreen", main = "Population Development in Germany\n(1950-2022)", cex.main = 1.5, sub = "", lwd = 4, yaxt = "n", xaxt = "n", lty = 1)
lines(years, popdevelopment$died[50:122], lty = 1, type = "l", pch = 15, cex = 2, lwd = 4, col = "navyblue")

axis(1, at = seq(1950, 2022, by = 5), las = 0, tck = 1, lty = 2, col = "#c9c9c9", lwd = 1, cex.axis = 1.5)
axis(2, at = seq(500000, 1400000, by = 100000), las = 2, tck = 1, lty = 2, col = "#c9c9c9", lwd = 1, cex.axis = 1.5)
axis(2, at = seq(0, 0, by = 1), tck = 1, las = 2, lty = 2, col = "#000000", cex.axis = 1.5)

legend(x = "topright",      # Position
    inset = 0.02,
    legend = c("Died", "Born"),  # Legend texts
    lty = c(1, 1),
    col = c("navyblue", "forestgreen"),      # Line colors
    lwd = 4,
    cex = 1.5)
dev.off()

Captions

Add a one-line explanation of what this file represents

Items portrayed in this file

uitbeelding

media type Engels

image/svg+xml

Lêergeskiedenis

Klik op die datum/tyd om te sien hoe die lêer destyds gelyk het.

Datum/TydDuimnaelDimensiesGebruikerOpmerking
huidig16:47, 2 Junie 2023Duimnaelskets vir weergawe vanaf 16:47, 2 Junie 20231 350 × 810 (65 KG)Hi, future humans!2022
19:22, 27 Mei 2022Duimnaelskets vir weergawe vanaf 19:22, 27 Mei 20221 350 × 810 (65 KG)Hi, future humans!2021
15:41, 2 Desember 2021Duimnaelskets vir weergawe vanaf 15:41, 2 Desember 20211 350 × 810 (47 KG)Hi, future humans!changed x axis
15:30, 2 Desember 2021Duimnaelskets vir weergawe vanaf 15:30, 2 Desember 20211 350 × 810 (73 KG)Hi, future humans!{{Information |Description={{de|1=Gesamtdeutsche Bevölkerungsentwicklung unterteilt in Geburten und Sterbefälle von 1950 bis 2020}} {{en|1=German population development divided into births and deaths from 1950 to 2020}} |Source={{Own}}, data from Statistisches Bundesamt |Date=2021-12-02 |Author={{User|Hi, future humans!}}, R code inspired by {{user at project|Europol|w|de}} |Permission={{cc-by-sa-4.0}} |other_versions= }} {{Created with R|v|code= svg("Population Development Germany.svg", widt...

Die volgende bladsy gebruik dié lêer:

Globale lêergebruik

Die volgende ander wiki's gebruik hierdie lêer:

Metadata

Die lêer bevat aanvullende inligting wat moontlik deur 'n digitale kamera of skandeerder bygevoeg is.

As die lêer verander is, sal sekere inligting dalk nie meer ooreenkom met dié van die gewysigde lêer nie.

Ontsluit van "https://af.wikipedia.org/wiki/Lêer:Population_Development_Germany.svg"