Ficheiro:Population of Germany.svg
Tamaño desta vista previa en PNG do ficheiro en formato SVG: 800 × 480 píxeles. Outras resolucións: 320 × 192 píxeles | 1.024 × 614 píxeles | 1.280 × 768 píxeles | 2.560 × 1.536 píxeles | 1.350 × 810 píxeles.
Ficheiro orixinal (ficheiro SVG; resolución de 1.350 × 810 píxeles; tamaño do ficheiro: 72 kB)
 | Este ficheiro procede de Wikimedia Commons. A continuación móstrase a información da súa páxina de descrición. Commons é un repositorio libre de ficheiros multimedia. Pode contribuír alí cargando as súas imaxes. |
|
Agárdase que esta imaxe estea sempre actualizada. Síntete libre para a actualizar cando for necesario.
|
|
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. |
Resumo
| Descrición |
Deutsch: Gesamtdeutsche Bevölkerung von 1950 bis 2021
English: Population of Germany from 1950 to 2021 |
| Data | |
| Orixe |
Obra propia, 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 |
| Autoría | Hi, future humans! (conversa · contribucións), R code inspired by Europol em Wikipedia em alemán, |
| Licenza (Reuso deste ficheiro) |
   Este ficheiro está licenciado baixo a licenza Creative Commons recoñecemento compartir igual 4.0 internacional.
|
| Outras versións | auf Deutsch |
| SVG desenvolvimento |  Esta imaxe vectorial foi creada co R  Este ficheiro SVG emprega texto encapsulado que pode ser traducido de xeito doado cun editor de texto. |
| Código fonte | R codesvg("Population of Germany.svg", width = 15, height = 9)
year <- seq(1901, 2021)
population <- data.frame(year)
################################################################################
rownames(population) <- year
population[c(50:121), "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
)
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:2021
par(mar = c(2.7, 4.5, 2.5, 0)) #bottom, left, top, right
plot(
years,
population$humans[50:121],
ylim = c(65, 85),
bty = "l",
type = "b",
yaxs = "i",
xlab = "",
ylab = "",
pch = 15,
lab = c(10, 10, 1),
col = "red",
main = "Population of Germany",
cex.main = 2,
sub = "",
lwd = 2,
yaxt = "n",
xaxt = "n"
)
axis(
1,
at = seq(1950, 2021, 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 = "million",
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.
Historial do ficheiro
Prema nunha data/hora para ver o ficheiro tal e como estaba nese momento.
| Data/Hora | Miniatura | Dimensións | Usuario | Comentario | |
|---|---|---|---|---|---|
| actual | 23 de outubro de 2022 ás 19:00 | | 1.350 × 810 (72 kB) | Hi, future humans! | 2021 |
| 2 de decembro de 2021 ás 00:10 |  | 1.350 × 810 (60 kB) | Hi, future humans! | {{Information |Description={{de|1=Gesamtdeutsche Bevölkerung von 1960 bis 2020}} {{en|Population of Germany from 1960 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/Bevoelkerungsstand/_inhalt.html Sta... |
Uso do ficheiro
A seguinte páxina usa este ficheiro:
Uso global do ficheiro
Os seguintes wikis empregan esta imaxe:
- Uso en an.wiki.x.io
- Uso en ast.wiki.x.io
- Uso en br.wiki.x.io
- Uso en ca.wiki.x.io
- Uso en cy.wiki.x.io
- Uso en fi.wiki.x.io
- Uso en he.wiki.x.io
- Uso en it.wiki.x.io
- Uso en ko.wiki.x.io
- Uso en lt.wiki.x.io
- Uso en pt.wiki.x.io
- Uso en uk.wiki.x.io
