Wikipedia

Datei:Bevoelkerungsentwicklung in Oesterreich.svg

Originaldatei ‎(SVG-Datei, Basisgröße: 1.350 × 810 Pixel, Dateigröße: 68 KB)

Diese Datei und die Informationen unter dem roten Trennstrich werden aus dem zentralen Medienarchiv Wikimedia Commons eingebunden.

Zur Beschreibungsseite auf Commons

Beschreibung

Beschreibung
Deutsch: Geburten und Sterbefälle von 1946 bis 2021 in Österreich.
English: Austrian population development divided into births and deaths from 1946 to 2021
Datum
Quelle Eigenes Werk, data from Statistik Austria
Urheber Hi, future humans! (Diskussion · Beiträge), R code inspired by Europol in der Wikipedia auf Deutsch
Genehmigung
(Weiternutzung dieser Datei)
w:de:Creative Commons
Namensnennung Weitergabe unter gleichen Bedingungen
Diese Datei ist lizenziert unter der Creative-Commons-Lizenz „Namensnennung – Weitergabe unter gleichen Bedingungen 4.0 international“.
Dieses Werk darf von dir
  • verbreitet werden – vervielfältigt, verbreitet und öffentlich zugänglich gemacht werden
  • neu zusammengestellt werden – abgewandelt und bearbeitet werden
Zu den folgenden Bedingungen:
  • Namensnennung – Du musst angemessene Urheber- und Rechteangaben machen, einen Link zur Lizenz beifügen und angeben, ob Änderungen vorgenommen wurden. Diese Angaben dürfen in jeder angemessenen Art und Weise gemacht werden, allerdings nicht so, dass der Eindruck entsteht, der Lizenzgeber unterstütze gerade dich oder deine Nutzung besonders.
  • Weitergabe unter gleichen Bedingungen – Wenn du das Material wiedermischst, transformierst oder darauf aufbaust, musst du deine Beiträge unter der gleichen oder einer kompatiblen Lizenz wie das Original verbreiten.
Andere Versionen English version
SVG‑Erstellung
InfoField
 
Der SVG-Code ist valide.
 
Dieses Chart wurde mit R erstellt.
 
 Diese Datei verwendet Text-Einbettung, die mit einem Texteditor leicht übersetzbar ist.
Quelltext
InfoField

R code

svg("Bev\u00F6lkerungsentwicklung \u00D6sterreich.svg", width = 15, height = 9)

year <- seq(1901, 2021)
popdevelopment <- data.frame(year)
########################################
rownames(popdevelopment) <- year
popdevelopment[46:121, "born"] <- c(111302,128953,123221,113375,107854,102764,103012,102867,103985,108575,115827,118712,119755,124377,125945,131563,133253,134809,133841,129924,128577,127404,126115,121377,112301,108510,104033,98041,97430,93757,87446,85595,85402,86388,90872,93942,94840,90118,89234,87440,86964,86503,88052,88759,90454,94629,95302,95227,92415,88669,88809,84045,81233,78138,78268,75458,78399,76944,78968,78190,77914,76250,77752,76344,78742,78109,78952,79330,81722,84381,87675,87633,85535,84952,83603,86078)
comment(popdevelopment$born) <- "Sources: 1946-  Statistik Austria https://www.statistik.at/fileadmin/pages/424/Geborene_nach_demographischen_Merkmalen.ods"
########################################
popdevelopment[46:121, "died"] <- c(94077,90027,84213,89247,85710,88253,83372,83399,84632,84995,86824,89298,85980,87970,89603,85673,90854,91579,89081,94273,91440,95438,96014,98715,98819,97334,95323,92768,94324,96041,95140,92402,94617,92012,92442,92693,91339,93041,88466,89578,87071,84907,83263,83407,82952,83428,83162,82517,80684,81171,80790,79432,78339,78200,76780,74767,76131,77209,74292,75189,74295,74625,75083,77381,77199,76479,79436,79526,78252,83073,80669,83270,83975,83386,91599,91962)
comment(popdevelopment$died) <- "Sources: 1946-  Statistik Austria https://www.statistik.at/fileadmin/pages/428/Gestorbene_nach_demographischen_Merkmalen.ods"
########################################


years <- 1946:2021
par(mar = c(2.5, 6.5, 4.0, 0)) #bottom, left, top, right
plot(years, popdevelopment$born[46:121], ylim = c(70000, 140000), bty = "l", type = "l", yaxs = "i", xlab = "", ylab = "", pch = 16, cex = 2, lab = c(10, 10, 1), col = "forestgreen", main = "Bev\u00F6lkerungsentwicklung in \u00D6sterreich\n(1946-2021)", cex.main = 1.5, sub = "", lwd = 4, yaxt = "n", xaxt = "n", lty = 1)
lines(years, popdevelopment$died[46:121], lty = 1, type = "l", pch = 15, cex = 2, lwd = 4, col = "navyblue")

axis(1, at = seq(1945, 2021, by = 5), las = 0, tck = 1, lty = 2, col = "#c9c9c9", lwd = 1, cex.axis = 1.5)
axis(2, at = seq(70000, 140000, by = 10000), 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("Gestorben", "Geboren"),  # Legend texts
    lty = c(1, 1),
    col = c("navyblue", "forestgreen"),      # Line colors
    lwd = 4,
    cex = 1.5)
dev.off()

Kurzbeschreibungen

Ergänze eine einzeilige Erklärung, was diese Datei darstellt.

In dieser Datei abgebildete Objekte

Motiv

MIME-Typ

image/svg+xml

Prüfsumme

e27b46d030ec46de296f182d68f24f0b71881e10

Bestimmungsmethode: SHA-1

Dateigröße

69.173 Byte

Höhe

810 Pixel

Breite

1.350 Pixel

Dateiversionen

Klicke auf einen Zeitpunkt, um diese Version zu laden.

Version vomVorschaubildMaßeBenutzerKommentar
aktuell13:54, 26. Sep. 2022Vorschaubild der Version vom 13:54, 26. Sep. 20221.350 × 810 (68 KB)Hi, future humans!== {{int:filedesc}} == {{Information |Description={{de|1=Geburten und Sterbefälle von 1946 bis 2021 in Österreich.}} {{en|1=Austrian population development divided into births and deaths from 1946 to 2021}} |Source={{Own}}, data from Statistik Austria |Date=2022-09-26 |Author={{User|Hi, future humans!}}, R code inspired by {{user at project|Europol|w|de}} |Permission={{cc-by-sa-4.0}} |other_versions= English version |other fields={{Igen|R|+|%|code=...

Die folgende Seite verwendet diese Datei:

Metadaten

Diese Datei enthält weitere Informationen (beispielsweise Exif-Metadaten), die in der Regel von der Digitalkamera oder dem verwendeten Scanner stammen. Durch nachträgliche Bearbeitung der Originaldatei können einige Details verändert worden sein.

Abgerufen von „https://de.wikipedia.org/wiki/Datei:Bevoelkerungsentwicklung_in_Oesterreich.svg“