Rで解析:世界の人口統計です。「wpp2015」パッケージの紹介

Rの解析に役に立つ記事

国際連合がまとめた「2015年版の世界の人口統計」です。データは地域・国別に1950-2100年の平均寿命、移住、男女比率などが収めらています。

日本のデータを見る限り、やはり少子高齢化は避けられないようです。

オフィシャルページには多くの統計情報が公開されています。日本以外で公開されているデータを利用することで、世界からみた日本の実情を知ることができるかもしれません。

The 2015 Revision of World Population Prospects
http://esa.un.org/unpd/wpp/

パッケージのバージョンは1.0.0。R version 3.2.1でコマンドを確認しています。


スポンサーリンク
スポンサーリンク

パッケージのインストール

下記コマンドを実行してください。

#パッケージのインストール
install.packages("rafalib")

実行コマンドの紹介

詳細はコマンドまたはパッケージヘルプを確認してください。

#パッケージの読み込み
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

少しでも、あなたのウェブや実験の解析が楽になりますように!!

タイトルとURLをコピーしました