ファイル:Population Development Germany.svg

ウィキペディアから無料の百科事典

元のファイル ‎(SVG ファイル、1,350 × 810 ピクセル、ファイルサイズ: 65キロバイト)

ウィキメディア・コモンズ
  • このファイルは、ウィキメディア・コモンズから呼び出されています。
  • このファイルは、他のプロジェクトで使用されている可能性があります。
  • このファイルの解説やノートへの記入、履歴などの詳細の確認は、ウィキメディア・コモンズのファイルページ（ノート/履歴/ログ）を使用してください。
ウィキメディア・コモンズのファイルページにある説明を、以下に表示します。

概要

解説
Deutsch: Gesamtdeutsche Bevölkerungsentwicklung unterteilt in Geburten und Sterbefälle von 1950 bis 2022
English: German population development divided into births and deaths from 1950 to 2022
日付
原典 投稿者自身による著作物, data from Statistisches Bundesamt
作者 Hi, future humans! (トーク · 投稿記録), R code inspired by ドイツ語版ウィキペディアのEuropolさん
許可
(ファイルの再利用)
w:ja:クリエイティブ・コモンズ
表示 継承
このファイルはクリエイティブ・コモンズ 表示-継承 4.0 国際ライセンスのもとに利用を許諾されています。
あなたは以下の条件に従う場合に限り、自由に
  • 共有 – 本作品を複製、頒布、展示、実演できます。
  • 再構成 – 二次的著作物を作成できます。
あなたの従うべき条件は以下の通りです。
  • 表示 – あなたは適切なクレジットを表示し、ライセンスへのリンクを提供し、変更があったらその旨を示さなければなりません。これらは合理的であればどのような方法で行っても構いませんが、許諾者があなたやあなたの利用行為を支持していると示唆するような方法は除きます。
  • 継承 – もしあなたがこの作品をリミックスしたり、改変したり、加工した場合には、あなたはあなたの貢献部分を元の作品とこれと同一または互換性があるライセンスの下に頒布しなければなりません。
その他のバージョン Deutsche version
SVG 開発
InfoField
 
このSVGのソースコードは正しい。
 
この 統計図表はRで作成されました。
 
 このSVGファイルは埋込み文を用いており，テキストエディタを用いて容易に翻訳することができますいます。
ソースコード
InfoField

R code

svg("Population Development Germany.svg", width = 15, height = 9)  year <- seq(1901, 2022) popdevelopment <- data.frame(year) ######################################## rownames(popdevelopment) <- year popdevelopment[50:122, "born"] <- c(1116701, 1106380, 1105084, 1095029, 1109743, 1113408, 1137169, 1165555, 1175870, 1243922, 1261614, 1313505, 1316534, 1355595, 1357304, 1325386, 1318303, 1272276, 1214968, 1142366, 1047737, 1013396, 901657, 815969, 805500, 782310, 798334, 805496, 808619, 817217, 865789, 862100, 861275, 827933, 812292, 813803, 848232, 867969, 892993, 880459, 905675, 830019, 809114, 798447, 769603, 765221, 796013, 812173, 785034, 770744, 766999, 734475, 719250, 706721, 705622, 685795, 672724, 684862, 682514, 665126, 677947, 662685, 673544, 682069, 714927, 737575, 792141, 784901, 787523, 778090, 773144, 795492, 738856) comment(popdevelopment$born) <- "Sources: 1950-  Federal Statistical Office Germany Tables 12612-0001" ######################################## popdevelopment[50:122, "died"] <- c(748329, 752697, 767639, 790654, 775291, 795938, 812111, 840195, 818418, 835402, 876721, 850300, 878814, 895070, 870319, 907882, 911984, 914417, 976521, 988092, 975664, 965623, 965689, 962988, 956573, 989649, 966873, 931155, 955550, 944474, 952371, 954436, 943832, 941032, 917299, 929649, 925426, 901291, 900627, 903441, 921445, 911245, 885443, 897270, 884661, 884588, 882843, 860389, 852382, 846330, 838797, 828541, 841686, 853946, 818271, 830227, 821627, 827155, 844439, 854544, 858768, 852328, 869582, 893825, 868356, 925200, 910902, 932272, 954874, 939520, 985572, 1023687, 1066317) comment(popdevelopment$died) <- "Sources: 1950-  Federal Statistical Office Germany Tables 12613-0002" ########################################   years <- 1950:2022 par(mar = c(2.5, 6.5, 4.0, 0)) #bottom, left, top, right plot(years, popdevelopment$born[50:122], ylim = c(500000, 1400000), bty = "l", type = "l", yaxs = "i", xlab = "", ylab = "", pch = 16, cex = 2, lab = c(10, 10, 1), col = "forestgreen", main = "Population Development in Germany\n(1950-2022)", cex.main = 1.5, sub = "", lwd = 4, yaxt = "n", xaxt = "n", lty = 1) lines(years, popdevelopment$died[50:122], lty = 1, type = "l", pch = 15, cex = 2, lwd = 4, col = "navyblue")  axis(1, at = seq(1950, 2022, by = 5), las = 0, tck = 1, lty = 2, col = "#c9c9c9", lwd = 1, cex.axis = 1.5) axis(2, at = seq(500000, 1400000, 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 = "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()

キャプション

このファイルの内容を1行で記述してください

このファイルに描写されている項目

題材

成立日

2 12 2021

ファイルの履歴

過去の版のファイルを表示するには、その版の日時をクリックしてください。

日付と時刻サムネイル寸法利用者コメント
現在の版2023年6月2日 (金) 16:472023年6月2日 (金) 16:47時点における版のサムネイル1,350 × 810 (65キロバイト)Hi, future humans!2022
2022年5月27日 (金) 19:222022年5月27日 (金) 19:22時点における版のサムネイル1,350 × 810 (65キロバイト)Hi, future humans!2021
2021年12月2日 (木) 15:412021年12月2日 (木) 15:41時点における版のサムネイル1,350 × 810 (47キロバイト)Hi, future humans!changed x axis
2021年12月2日 (木) 15:302021年12月2日 (木) 15:30時点における版のサムネイル1,350 × 810 (73キロバイト)Hi, future humans!{{Information |Description={{de|1=Gesamtdeutsche Bevölkerungsentwicklung unterteilt in Geburten und Sterbefälle von 1950 bis 2020}} {{en|1=German population development divided into births and deaths from 1950 to 2020}} |Source={{Own}}, data from Statistisches Bundesamt |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("Population Development Germany.svg", widt...

以下のページがこのファイルを使用しています:

グローバルなファイル使用状況

以下に挙げる他のウィキがこの画像を使っています:

メタデータ

このファイルには、追加情報があります (おそらく、作成やデジタル化する際に使用したデジタルカメラやスキャナーが追加したものです)。

このファイルが元の状態から変更されている場合、修正されたファイルを完全に反映していない項目がある場合があります。

「https://ja.wikipedia.org/wiki/ファイル:Population_Development_Germany.svg」から取得