Fil:Population Development Germany.svg

Sideinnholdet støttes ikke på andre språk.
Fra Wikipedia, den frie encyklopedi

Opprinnelig fil ‎(SVG-fil, standardstørrelse 1 350 × 810 piksler, filstørrelse: 65 KB)


Wikimedia Commons' logo Denne filen er fra Wikimedia Commons og kan brukes av andre prosjekter. Informasjonen fra filbeskrivelsessiden vises nedenfor.

Beskrivelse

Beskrivelse
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
Dato
Kilde Eget verk, data from Statistisches Bundesamt
Opphavsperson Hi, future humans! (diskusjon · bidrag), R code inspired by Europol at tysk Wikipedia
Tillatelse
(Gjenbruk av denne filen)
w:no:Creative Commons
navngivelse del på samme vilkår
Denne filen er lisensiert under lisensen Creative Commons Navngivelse-DelPåSammeVilkår 4.0 Internasjonal.
Du står fritt:
  • til å dele – til å kopiere, distribuere og overføre verket
  • til å blande – til å endre verket
Under de følgende betingelsene:
  • navngivelse – Du må kreditere verket på passende vis, lenke til lisensen og indikere hvorvidt det har blitt gjort endringer. Du kan gjøre det på enhver rimelig måte, men ikke på en måte som antyder at lisensgiveren støtter deg eller din bruk av verket.
  • del på samme vilkår – Dersom du remikser, omarbeider eller på annen måte bygger på dette verket, må du kun distribuere resultatet under den samme eller en samsvarende lisens som denne.
Andre versjoner Deutsche version
SVG utvikling
InfoField
 
SVG-koden er gyldig.
 
Denne vektorgrafikken ble laget med R.
 
 This file uses embedded text that can be easily translated using a text editor.
Kildekode
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()

Bildetekster

Legg til en kort forklaring på hva filen representerer

Elementer som er med i denne fila

motiv

mediatype

image/svg+xml

Filhistorikk

Klikk på et tidspunkt for å vise filen slik den var på det tidspunktet.

Dato/klokkeslettMiniatyrbildeDimensjonerBrukerKommentar
nåværende2. jun. 2023 kl. 18:47Miniatyrbilde av versjonen fra 2. jun. 2023 kl. 18:471 350 × 810 (65 KB)Hi, future humans!2022
27. mai 2022 kl. 21:22Miniatyrbilde av versjonen fra 27. mai 2022 kl. 21:221 350 × 810 (65 KB)Hi, future humans!2021
2. des. 2021 kl. 17:41Miniatyrbilde av versjonen fra 2. des. 2021 kl. 17:411 350 × 810 (47 KB)Hi, future humans!changed x axis
2. des. 2021 kl. 17:30Miniatyrbilde av versjonen fra 2. des. 2021 kl. 17:301 350 × 810 (73 KB)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...

Det er ingen sider som bruker denne filen.

Global filbruk

Følgende andre wikier bruker denne filen:

Metadata

Denne filen inneholder tilleggsinformasjon, sannsynligvis lagt til av digitalkameraet eller skanneren som ble brukt til å lage eller digitalisere det.

Hvis filen har blitt forandret fra utgangspunktet, kan enkelte detaljer være unøyaktige.

Hentet fra «https://no.wikipedia.org/wiki/Fil:Population_Development_Germany.svg»