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-Stat APIとjpstatパッケージで）
• Rで人口ピラミッドのアニメーションを作る