Datei:Bevölkerungsentwicklung in Deutschland (Nationalität).svg

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

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

Zur Beschreibungsseite auf Commons

Es wird erwartet, dass dieses Bild stets auf dem neuesten Stand ist. Aktualisiere es ruhig, falls nötig.
Diese Datei könnte aktualisiert werden, um neue Informationen zu berücksichtigen.
Falls die Verwendung einer bestimmten, nicht aktualisierten Version der Datei gewünscht wird, sollte die gewünschte Version separat hochgeladen werden.

Beschreibung

Beschreibung
Deutsch: Gesamtdeutsche Bevölkerungsentwicklung unterteilt in Gesamtbevölkerung und deutschen Staatsbürgern von 1950 bis 2022
English: German population development divided into total population and German nationals from 1950 to 2022
Datum
Quelle Eigenes Werk, data for: East German population: -Special series with contributions for the territory of the former GDR- Booklet 3, Population Statistical Surveys 1946 to 1989, released May 1993 https://www.statistischebibliothek.de/mir/receive/DEMonografie_mods_00002289 (page 24); West German population and combined populations since 1990: Federal Statistical Office Germany, Table 12411-0001; Foreign population since 1970, from 1970-1989 only Westgermany: Federal Statistical Office Germany Table 12521-0002.
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 in Deutschland (Nationalit\u00E4t).svg", width = 15, height = 9)

year <- seq(1901, 2022)
population <- data.frame(year)
################################################################################
rownames(population) <- year
population[c(50:122), "totalpop"] <- c(
    (18.388 + 50.958125), # 1950
    (18.351 + 51.434777),
    (18.328 + 51.863761),
    (18.178 + 52.453806),
    (18.059 + 52.943295),
    (17.944 + 53.517683),
    (17.718 + 53.339626),
    (17.517 + 54.064365),
    (17.355 + 54.719159),
    (17.298 + 55.257088),
    (17.241 + 55.958321), # 1960
    (17.125 + 56.589148),
    (17.102 + 57.247246),
    (17.155 + 57.864509),
    (16.983 + 58.587451),
    (17.020 + 59.296591),
    (17.058 + 59.792934),
    (17.082 + 59.948474),
    (17.084 + 60.463033),
    (17.076 + 61.194591),
    (17.058 + 61.001164), # 1970
    (17.061 + 61.502503),
    (17.043 + 61.809378),
    (16.980 + 62.101369),
    (16.925 + 61.991475),
    (16.850 + 61.644624),
    (16.786 + 61.441996),
    (16.765 + 61.352745),
    (16.756 + 61.321663),
    (16.745 + 61.439342),
    (16.737 + 61.657945), # 1980
    (16.736 + 61.712689),
    (16.697 + 61.546101),
    (16.699 + 61.306669),
    (16.671 + 61.049256),
    (16.644 + 61.020474),
    (16.624 + 61.140461),
    (16.641 + 61.238079),
    (16.666 + 61.715103),
    (16.614 + 62.679035),
    79.753227,  # 1990
    80.274564,
    80.974632,
    81.338093,
    81.538603,
    81.817499,
    82.012162,
    82.057379,
    82.037011,
    82.163475,
    82.259540, # 2000
    82.440309,
    82.536680,
    82.531671,
    82.500849,
    82.437995,
    82.314906,
    82.217837,
    82.002356,
    81.802257,
    81.751602, # 2010
    80.327900,
    80.523746,
    80.767463,
    81.197537,
    82.175684,
    82.521653,
    82.792351,
    83.019213,
    83.166711,
    83.155031, # 2020
    83.237124,
    84.358845
)
comment(population$totalpop) <- "Sources:
    East German population: -Special series with contributions for the territory of the former GDR- Booklet 3, Population Statistical Surveys 1946 to 1989, released May 1993 https://www.statistischebibliothek.de/mir/receive/DEMonografie_mods_00002289 (page 24);
    West German population and combined populations since 1990: Federal Statistical Office Germany Table 12411-0001"

########################################
population[50:122, "germanpop"] <- c(
    (18.388 + 50.958125), # 1950
    (18.351 + 51.434777),
    (18.328 + 51.863761),
    (18.178 + 52.453806),
    (18.059 + 52.943295),
    (17.944 + 53.517683),
    (17.718 + 53.339626),
    (17.517 + 54.064365),
    (17.355 + 54.719159),
    (17.298 + 55.257088),
    (17.241 + 55.958321), # 1960
    (17.125 + 56.589148),
    (17.102 + 57.247246),
    (17.155 + 57.864509),
    (16.983 + 58.587451),
    (17.020 + 59.296591),
    (17.058 + 59.792934),
    (17.082 + 59.948474),
    (17.084 + 60.463033),
    (17.076 + 61.194591),
    (17.058 + 58.263259), # 1970
    (17.061 + 58.314646),
    (17.043 + 58.255300),
    (16.980 + 58.110017),
    (16.925 + 57.940513),
    (16.850 + 57.744140),
    (16.786 + 57.589814),
    (16.765 + 57.460519),
    (16.756 + 57.315844),
    (16.745 + 57.188694),
    (16.737 + 57.091778), # 1980
    (16.736 + 56.991569),
    (16.697 + 56.874263),
    (16.699 + 56.732513),
    (16.671 + 56.643793),
    (16.644 + 56.538856),
    (16.624 + 56.478581),
    (16.641 + 56.951607),
    (16.666 + 57.091575),
    (16.614 + 57.671874),
    74.170870, # 1990
    74.207834,
    74.305064,
    74.360618,
    74.420863,
    74.474720,
    74.520512,
    74.638378,
    74.728534,
    74.827364,
    74.991972, # 2000
    75.122046,
    75.188729,
    75.189851,
    75.212869,
    75.148846,
    75.058957,
    74.962442,
    74.816435,
    74.671338,
    74.552656, # 2010
    73.985506,
    73.880047,
    73.752227,
    73.657763,
    73.523726,
    73.301664,
    73.113483,
    72.929921,
    72.768689,
    72.569978, # 2020
    72.344071,
    72.034650
)
comment(population$germanpop) <- "Sources:
    Total East German population added from 1950-1989: -Special series with contributions for the territory of the former GDR- Booklet 3, Population Statistical Surveys 1946 to 1989, released May 1993 https://www.statistischebibliothek.de/mir/receive/DEMonografie_mods_00002289 (page 24);
    1950-1969: Total West German population from Federal Statistical Office Germany Table 12411-0001;
    1970-1989: West German population of German nationality, since 1990: Reunited German population of German nationality from Federal Statistical Office Germany Table 12411-0002"
########################################
years <- 1950:2022
par(mar = c(2.7, 4.5, 4.7, 0)) #bottom, left, top, right
plot(
    years,
    population$totalpop[50:122],
    col = "forestgreen",
    type = "l",
    pch = 15,
    lwd = 4,
    ylim = c(65, 85),
    bty = "l",
    yaxs = "i",
    xlab = "",
    ylab = "",
    lab = c(10, 10, 1),
    main = "Bev\u00F6lkerungsentwicklung in Deutschland (Nationalit\u00E4t)\n (1950-2022)",
    cex.main = 2,
    sub = "",
    yaxt = "n",
    xaxt = "n"
)
lines(
    years,
    population$germanpop[50:122],
    col = "navyblue",
    type = "l",
    pch = 15,
    lwd = 4,
    lty = 1,
    cex = 2
)
axis(
    1,
    at = seq(1950, 2022, by = 5),
    las = 0,
    tck = 1,
    lty = 1,
    col = "#c9c9c9",
    lwd = 1,
    cex.axis = 1.5
)
axis(
    2,
    at = seq(65, 85, by = 1),
    las = 2,
    tck = 1,
    lty = 1,
    col = "#c9c9c9",
    lwd = 1,
    cex.axis = 1.5
)
mtext(
    side = 2,
    text = "Millionen",
    cex = 1.5,
    line = 2.7
)
legend(
    x = "topleft",      # Position
    inset = 0.02,
    legend = c("Gesamtbev\u00F6lkerung", "Deutsche Staatsb\u00FCrger"),  # Legend texts
    lty = c(1, 1),
    col = c("forestgreen", "navyblue"),      # 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

Urheberrechtsstatus

urheberrechtlich geschützt

Lizenz

Creative Commons Namensnennung – Weitergabe unter gleichen Bedingungen 4.0 international

Datum der Gründung, Erstellung, Entstehung, Erbauung

2. Dezember 2021

MIME-Typ

image/svg+xml

Quelle der Datei

durch Hochlader/in erstelltes Original

Prüfsumme

07e5e244c935fc1821379a36995145c8e52fa5e8

Bestimmungsmethode: SHA-1

Dateigröße

97.781 Byte

Höhe

810 Pixel

Breite

1.350 Pixel

Dateiversionen

Klicke auf einen Zeitpunkt, um diese Version zu laden.

Version vomVorschaubildMaßeBenutzerKommentar
aktuell13:14, 27. Jun. 2023Vorschaubild der Version vom 13:14, 27. Jun. 20231.350 × 810 (95 KB)Hi, future humans!2022
16:00, 2. Nov. 2022Vorschaubild der Version vom 16:00, 2. Nov. 20221.350 × 810 (95 KB)Hi, future humans!typo
15:53, 2. Nov. 2022Vorschaubild der Version vom 15:53, 2. Nov. 20221.350 × 810 (95 KB)Hi, future humans!update
19:21, 2. Dez. 2021Vorschaubild der Version vom 19:21, 2. Dez. 20211.350 × 810 (67 KB)Hi, future humans!== {{int:filedesc}} == {{Information |Description={{de|1=Gesamtdeutsche Bevölkerungsentwicklung unterteilt in Gesamtbevölkerung und deutschen Staatsbürgern von 1950 bis 2020}} {{en|1=German population development divided into total population and German nationals from 1950 to 2020}} |Source={{Own}}, data for: East German population: -Special series with contributions for the territory of the former GDR- Booklet 3, Population Statistical Surveys 1946 to 1989, released May 1993 https://www.stat...

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.

Quelle: https://de.wikipedia.org/wiki/Datei:Bev%C3%B6lkerungsentwicklung_in_Deutschland_(Nationalit%C3%A4t).svg