File:Wanderungssaldo Deutschland.svg
Jump to navigation
Jump to search
Size of this PNG preview of this SVG file: 800 × 480 pixels. Other resolutions: 320 × 192 pixels | 1,024 × 614 pixels | 1,280 × 768 pixels | 2,560 × 1,536 pixels | 1,350 × 810 pixels.
Original file (SVG file, nominally 1,350 × 810 pixels, file size: 127 KB)
Captions
Captions
Add a one-line explanation of what this file represents
|
This image should always reflect the most recent version. Feel free to update it when needed.
|
|
This file may be updated to reflect new information. If you wish to use a specific version of the file without it being overwritten, please upload the required version as a separate file. |
Summary
[edit]| Description |
Deutsch: Wanderungssaldo Deutschland von 1991 bis 2022
English: Net migration Germany from 1991 to 2022 |
| Date | |
| Source | Own work based on https://www.destatis.de/DE/Themen/Gesellschaft-Umwelt/Bevoelkerung/Wanderungen/Tabellen/wanderungen-alle.html |
| Author | Hi, future humans! (talk · contribs), R code inspired by Europol at German Wikipedia, |
| Permission (Reusing this file) |
   This file is licensed under the Creative Commons Attribution-Share Alike 4.0 International license.
|
| SVG development |  This file uses embedded text that can be easily translated using a text editor. |
| Source code | R codesvg("Wanderungssaldo Deutschland.svg", width = 15, height = 9)
jahr <- seq(1901, 2022)
wanderungssalden <- data.frame(jahr)
########################################
rownames(wanderungssalden) <- jahr
wanderungssalden[91:122, "insgesamt"] <- c(602523, 782071, 462096, 314998, 397935, 282197, 93664, 47098, 201975, 167120, 272723, 219288, 142645, 82543, 78953, 22791, 43912, -55743, -12782, 127677, 279330, 368945, 428607, 550483, 1139402, 499944, 416080, 399680, 327060, 220251, 329163, 1454577)
comment(wanderungssalden$insgesamt) <- "Sources: 1991- Statistisches Bundesamt ::Wanderungen zwischen Deutschland und dem Ausland, Zugezogene, Fortgezogene und Saldo::"
########################################
wanderungssalden[91:122, "deutsche"] <- c(174718, 185679, 182908, 166757, 172675, 133307, 115432, 80553, 83740, 80665, 84451, 66519, 39949, 27326, -16764, -51902, -55091, -66428, -40288, -26248, -23528, -18204, -21857, -26441, -17560, -135364, -82478, -60320, -57625, -28356, -64179, -89722)
comment(wanderungssalden$deutsche) <- "Sources: 1991- Statistisches Bundesamt ::Wanderungen zwischen Deutschland und dem Ausland, Zugezogene, Fortgezogene und Saldo::"
########################################
wanderungssalden[91:122, "nichtdeutsche"] <- c(427805, 596392, 279188, 148241, 225260, 148890, -21768, -33455, 118235, 86455, 188272, 152769, 102696, 55217, 95717, 74693, 99003, 10685, 27506, 153925, 302858, 387149, 450464, 576924, 1156962, 635308, 498558, 460000, 384685, 248607, 393342, 1544299)
comment(wanderungssalden$nichtdeutsche) <- "Sources: 1991- Statistisches Bundesamt ::Wanderungen zwischen Deutschland und dem Ausland, Zugezogene, Fortgezogene und Saldo::"
########################################
jahre <- 1991:2022
par(mar = c(4.5, 6.5, 2.5, 0)) #bottom, left, top, right
plot(jahre, wanderungssalden$insgesamt[91:122], ylim = c(-150000, 1600000), bty = "l", type = "b", yaxs = "i", xlab = "", ylab = "", pch = 16, cex = 2, lab = c(10, 10, 1), col = "orange1", main = "Wanderungssaldo", cex.main = 2, sub = "", lwd = 2, yaxt = "n", xaxt = "n", lty = 1)
lines(jahre, wanderungssalden$nichtdeutsche[91:122], lty = 1, type = "b", pch = 15, cex = 2, lwd = 2, col = "blue")
lines(jahre, wanderungssalden$deutsche[91:122], lty = 1, type = "b", pch = 17, cex = 2, col = "limegreen", lwd = 2)
axis(1, at = seq(1991, 2022, by = 1), las = 2, tck = 1, lty = 2, col = "#c9c9c9", lwd = 1, cex.axis = 1.5)
axis(2, at = seq(-200000, 1600000, 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 = "topleft", # Position
inset = 0.02,
legend = c("Insgesamt", "Deutsche", "Nichtdeutsche"), # Legend texts
lty = c(1, 1, 1), # Line types
pch = c(16, 17, 15),
col = c("orange1", "limegreen", "blue"), # Line colors
lwd = 2,
cex = 1.7)
dev.off()
|
Any autoconfirmed user can overwrite this file from the same source. Please ensure that overwrites comply with the guideline.
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 16:28, 2 June 2023 | | 1,350 × 810 (127 KB) | Hi, future humans! (talk | contribs) | 2022 |
| 20:11, 23 October 2022 |  | 1,350 × 810 (123 KB) | Hi, future humans! (talk | contribs) | 2021 | |
| 14:11, 2 December 2021 |  | 1,350 × 810 (98 KB) | Hi, future humans! (talk | contribs) | 1990->1991 | |
| 13:43, 2 December 2021 |  | 1,350 × 810 (98 KB) | Hi, future humans! (talk | contribs) | 0 korrigiert, neue Farben | |
| 13:31, 2 December 2021 |  | 1,350 × 810 (101 KB) | Hi, future humans! (talk | contribs) | {{Information |Description={{de|1=Wanderungssaldo Deutschland von 1991 bis 2020}} {{en|Net migration Germany from 1991 to 2020}} |Source={{own}} based on https://www.destatis.de/DE/Themen/Gesellschaft-Umwelt/Bevoelkerung/Wanderungen/Tabellen/wanderungen-alle.html |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("Wanderungssaldo Deutschland.svg", width = 15,... |
You cannot overwrite this file.
File usage on Commons
The following 2 pages use this file:
File usage on other wikis
The following other wikis use this file:
- Usage on de.wikipedia.org
