Movatterモバイル変換

jpstat

README is currently only available in Japanese.

jpstatは日本政府統計のポータルサイトであるe-Statや RESAS(地域経済分析システム) などのAPIを利用するためのツールを提供します．

現在，以下のAPIに対応しています．

• e-Stat API:https://www.e-stat.go.jp/api/
• RESAS API:https://opendata.resas-portal.go.jp
• 不動産取引価格情報取得API:https://www.land.mlit.go.jp/webland/api.html

「このサービスは、政府統計総合窓口(e-Stat)のAPI機能を使用していますが、サービスの内容は国によって保証されたものではありません。」

インストール方法

install.packages("jpstat")

jpstatの開発版は，GitHubから以下の方法でインストールできます．

# install.packages("devtools")devtools::install_github("UchidaMizuki/jpstat")

library(jpstat)library(dplyr)

e-Stat API

e-Stat APIの利用にはアカウント登録 (appIdと呼ばれるAPIキーの発行)が必要です (詳しくはホームページを参照してください)．また，データ利用に際しては利用規約に従う必要があります．

データ取得・整形の一連の流れは以下のようになります． ここでは，国勢調査データを対象として，2010・2015年の東京都・大阪府における男女別人口を取得します．詳細な使用方法はこちらを参照してください．

# APIキーの設定Sys.setenv(ESTAT_API_KEY = "Your appId")# メタ情報の取得census <- estat(statsDataId = "https://www.e-stat.go.jp/dbview?sid=0003410379")census#> # ☐ tab:   表章項目         [2] <code, name, level, unit>#> # ☐ cat01: 男女_時系列      [3] <code, name, level>#> # ☐ area:  地域_時系列      [50] <code, name, level, parentCode>#> # ☐ time:  時間軸（調査年） [21] <code, name, level>#> # #> # Please `activate()`.

# 2010・2015年の東京都・大阪府における男女別人口を取得census<- census|>activate(tab)|>filter(name=="人口")|>select()|>activate(cat01)|>rekey("sex")|>filter(name%in%c("男","女"))|>select(name)|>activate(area)|>rekey("pref")|>filter(name%in%c("東京都","大阪府"))|>select(code, name)|>activate(time)|>rekey("year")|>filter(name%in%c("2010年","2015年"))|>select(name)|>collect(n ="pop")#> The total number of data is 8.knitr::kable(census)

RESAS API

RESAS APIの利用にはアカウント登録 (X-API-KEYと呼ばれるAPIキーの発行)が必要です (詳しくはホームページを参照してください)．RESAS APIの利用にあたっては，利用規約を確認してください(API詳細仕様)．

Sys.setenv(RESAS_API_KEY = "Your X-API-KEY")power_for_industry <- resas(path = "https://opendata.resas-portal.go.jp/docs/api/v1/industry/power/forIndustry.html")power_for_industry#> # ✖ year:      年度            :  (Required)#> # ✖ pref_code: 都道府県コード  :  (Required)#> # ✖ city_code: 市区町村コード  :  (Required)#> # ✖ sic_code:  産業大分類コード:  (Required)#> # #> # Please `itemise()`.

power_for_industry<- power_for_industry|>itemise(year ="2012",pref_code ="1",city_code ="-",sic_code ="A")|>collect()knitr::kable(power_for_industry)

不動産取引価格情報取得API

trade<-webland_trade()trade#> # ✖ from:      取引時期From  :#> # ✖ to:        取引時期To    :#> # ✖ pref_code: 都道府県コード:#> # ✖ city_code: 市区町村コード:#> ##> # Please `itemise()`.

trade<- trade|>itemise(from ="20201",to ="20201",pref_code ="01",city_code ="01101")|>collect()knitr::kable(trade[1:5,1:6])

参考リンク

• Rで日本の統計データを効率的に取得しよう（e-StatAPIとjpstatパッケージで）
• Rで人口ピラミッドのアニメーションを作る