File:Population Development Austria.svg
Aus Wikimedia Commons, dem freien Medienarchiv
Zur Navigation springen
Zur Suche springen
Größe der PNG-Vorschau dieser SVG-Datei: 800 × 480 Pixel. Weitere Auflösungen: 320 × 192 Pixel | 1.024 × 614 Pixel | 1.280 × 768 Pixel | 2.560 × 1.536 Pixel | 1.350 × 810 Pixel.
Originaldatei (SVG-Datei, Basisgröße: 1.350 × 810 Pixel, Dateigröße: 65 KB)
Dateiinformationen
Strukturierte Daten
Bildtexte
Beschreibung
[Bearbeiten]BeschreibungPopulation Development Austria.svg |
Deutsch: Österreichische Bevölkerungsentwicklung unterteilt in Geburten und Sterbefälle von 1946 bis 2021
English: German 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) |
Diese Datei ist lizenziert unter der Creative-Commons-Lizenz „Namensnennung – Weitergabe unter gleichen Bedingungen 4.0 international“.
|
Andere Versionen | Deutsche version |
SVG‑Erstellung InfoField | Diese Datei verwendet Text-Einbettung, die mit einem Texteditor leicht übersetzbar ist. |
Quelltext InfoField | R codesvg("Population Development Austria.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 = "Population Development in Austria\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("Died", "Born"), # Legend texts
lty = c(1, 1),
col = c("navyblue", "forestgreen"), # Line colors
lwd = 4,
cex = 1.5)
dev.off()
|
Dateiversionen
Klicke auf einen Zeitpunkt, um diese Version zu laden.
Version vom | Vorschaubild | Maße | Benutzer | Kommentar | |
---|---|---|---|---|---|
aktuell | 12:05, 26. Sep. 2022 | 1.350 × 810 (65 KB) | Hi, future humans! (Diskussion | Beiträge) | == {{int:filedesc}} == {{Information |Description={{de|1=Österreichische Bevölkerungsentwicklung unterteilt in Geburten und Sterbefälle von 1946 bis 2021}} {{en|1=German 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=[[:file:Bevoelkerungsentwicklung in Oesterreich.svg | Deu... |
Du kannst diese Datei nicht überschreiben.
Dateiverwendung
Keine Seiten verwenden diese Datei.
Metadaten
Diese Datei enthält weitere Informationen, 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.
Breite | 1080pt |
---|---|
Höhe | 648pt |