File:Deutschland Bevölkerung.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: 76 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: Gesamtdeutsche Bevölkerung von 1950 bis 2022
English: Population of Germany from 1950 to 2022 |
| Date | |
| Source |
Own work, data from Sonderreihe mit Beiträgen für das Gebiet der ehemaligen DDR Heft 3 Bevölkerungsstatistische Übersichten 1946 bis 1989 (S.24) Statistisches Bundesamt |
| 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.
|
| Other versions | in English |
| SVG development |  This file uses embedded text that can be easily translated using a text editor. |
| Source code | R codesvg("Deutschland Bev\u00F6lkerung.svg", width = 15, height = 9)
year <- seq(1901, 2022)
population <- data.frame(year)
################################################################################
rownames(population) <- year
population[c(50:122), "humans"] <- 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$humans) <- "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 since 1950 and combined populations since 1990: Federal Statistical Office Germany Table 12411-0001"
########################################
years <- 1950:2022
par(mar = c(2.7, 4.5, 2.5, 0)) #bottom, left, top, right
plot(
years,
population$humans[50:122],
ylim = c(65, 85),
bty = "l",
type = "b",
yaxs = "i",
xlab = "",
ylab = "",
pch = 15,
lab = c(10, 10, 1),
col = "red",
main = "Bev\u00F6lkerung Deutschlands",
cex.main = 2,
sub = "",
lwd = 2,
yaxt = "n",
xaxt = "n"
)
axis(
1,
at = seq(1950, 2022, by = 5),
las = 0,
tck = 1,
lty = 1,
col = "#c9c9c9",
lwd = 1
)
axis(
2,
at = seq(65, 85, by = 1),
las = 2,
tck = 1,
lty = 1,
col = "#c9c9c9",
lwd = 1
)
mtext( # Y Axis
side = 2,
text = "Millionen",
cex = 1.3,
line = 2.5
)
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 | 11:21, 27 June 2023 | | 1,350 × 810 (76 KB) | Hi, future humans! (talk | contribs) | 2022 |
| 18:57, 23 October 2022 |  | 1,350 × 810 (76 KB) | Hi, future humans! (talk | contribs) | 2021 | |
| 00:19, 2 December 2021 |  | 1,350 × 810 (62 KB) | Hi, future humans! (talk | contribs) | == {{int:filedesc}} == {{Information |Description={{de|1=Gesamtdeutsche Bevölkerung von 1950 bis 2020}} {{en|Population of Germany from 1950 to 2020}} |Source={{Own}}, data from [https://www.statistischebibliothek.de/mir/servlets/MCRFileNodeServlet/DEMonografie_derivate_00000961/Heft_3.pdf Sonderreihe mit Beiträgen für das Gebiet der ehemaligen DDR Heft 3 Bevölkerungsstatistische Übersichten 1946 bis 1989 (S.24)] [https://www.destatis.de/DE/Themen/Gesellschaft-Umwelt/Bevoelkerung/Bevoelkerung... |
You cannot overwrite this file.
File usage on Commons
There are no pages that use this file.
File usage on other wikis
The following other wikis use this file:
- Usage on de.wikipedia.org
