国際連合がまとめた「2015年版の世界の人口統計」です。データは地域・国別に1950-2100年の平均寿命、移住、男女比率などが収めらています。
日本のデータを見る限り、やはり少子高齢化は避けられないようです。
オフィシャルページには多くの統計情報が公開されています。日本以外で公開されているデータを利用することで、世界からみた日本の実情を知ることができるかもしれません。
The 2015 Revision of World Population Prospects
http://esa.un.org/unpd/wpp/
パッケージのバージョンは1.0.0。R version 3.2.1でコマンドを確認しています。
パッケージのインストール
下記コマンドを実行してください。
[code language=”R”]
#パッケージのインストール
install.packages(“rafalib”)
[/code]
実行コマンドの紹介
詳細はコマンドまたはパッケージヘルプを確認してください。
[code language=”R”]
#パッケージの読み込み
library(“wpp2015”)
#平均寿命のデータ
#e0F:女性, e0M:男性を基本とし,以下を追記で別データ
#_supplemental, proj, proj80l, proj80u, proj95l, proj95u
#1950-2015の5年毎の国別男性平均寿命:e0M
data(e0M)
#日本のデータ抜粋
subset(e0M, e0M[, 1] == “Japan”)
country country_code 1950-1955 1955-1960 1960-1965 1965-1970 1970-1975 1975-1980 1980-1985 1985-1990
Japan 392 60.4 64.08 66.5 68.68 70.47 72.64 74.12 75.53
#2015年以降の予想平均寿命:e0Mproj
data(e0Mproj)
#日本のデータ抜粋
subset(e0Mproj, e0Mproj[, 1] == “Japan”)
ountry country_code 2015-2020 2020-2025 2025-2030 2030-2035 2035-2040 2040-2045 2045-2050 2050-2055
Japan 392 80.8 81.54 82.25 82.96 83.6 84.24 84.85 85.46
#1950-2100年間5年毎の移住に関するデータ:migration
data(migration)
#日本のデータ抜粋
subset(migration, migration[, 2] == “Japan”)
country_code name 1950-1955 1955-1960 1960-1965 1965-1970 1970-1975 1975-1980 1980-1985 1985-1990 1990-1995
392 Japan 55 -468 209 878 457 45 212 -628 451
#1950-2100年間5年毎の死亡率
#mxF:女性, mxM:男性
data(mxM)
#日本のデータ抜粋
subset(mxM, mxM[, 1] == “Japan”)
country country_code age 1950-1955 1955-1960 1960-1965 1965-1970 1970-1975 1975-1980 1980-1985 1985-1990
Japan 392 0 0.0555690 0.0415150 0.0292020 0.0187720 0.0136020 0.0098590 0.0073690 0.0053390
Japan 392 1 0.0071420 0.0035860 0.0021010 0.0013580 0.0011210 0.0008340 0.0006370 0.0005280
Japan 392 5 0.0018320 0.0012760 0.0008730 0.0006520 0.0005250 0.0003920 0.0003040 0.0002360
Japan 392 10 0.0009430 0.0006970 0.0005510 0.0004460 0.0003580 0.0002660 0.0002190 0.0001870
#1950-2100年間5年毎の15-49歳の5歳区分出生率の割合
data(percentASFR)
#日本のデータ抜粋
subset(percentASFR, percentASFR[, 1] == “Japan”)
country country_code age 1950-1955 1955-1960 1960-1965 1965-1970 1970-1975 1975-1980 1980-1985 1985-1990
Japan 392 15-19 1.53 1.07 0.96 0.94 1.12 1.04 1.20 1.20
Japan 392 20-24 22.24 24.64 25.58 24.90 25.68 25.29 20.43 16.53
Japan 392 25-29 34.38 41.16 47.13 48.32 48.22 50.30 51.88 49.22
Japan 392 30-34 24.51 22.09 20.14 20.40 19.87 19.01 21.69 26.92
Japan 392 35-39 13.07 8.77 5.14 4.70 4.45 3.82 4.22 5.53
Japan 392 40-44 4.03 2.14 1.06 0.74 0.66 0.55 0.57 0.60
Japan 392 45-49 0.23 0.14 0.00 0.00 0.00 0.00 0.00 0.00
#人口のデータ
#pop:男女合計, popF:女性, popM:男性を基本とし,以下を追記で別データ
#proj, proj80l, proj80u, proj95l, proj95u, projHigh, projLow
data(pop)
#日本のデータ抜粋
subset(pop, pop[, 2] == “Japan”)
country_code name 1950 1955 1960 1965 1970 1975 1980 1985 1990 1995
392 Japan 82199.47 88389.99 92500.75 97341.85 103707.5 110804.5 115912.1 119988.7 122249.3 124483.3
#1950-2100年間5年毎の男女比のデータ
data(sexRatio)
#日本のデータ抜粋
subset(sexRatio, sexRatio[, 1] == “Japan”)
country country_code 1950-1955 1955-1960 1960-1965 1965-1970 1970-1975 1975-1980 1980-1985 1985-1990
Japan 392 1.056 1.056 1.056 1.056 1.056 1.056 1.056 1.056
[/code]
少しでも、あなたのウェブや実験の解析が楽になりますように！！
