Skip to content

UchidaMizuki/jpstat

Repository files navigation

jpstat

CRAN status

README is currently only available in Japanese.

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

現在,以下のAPIに対応しています.

「このサービスは、政府統計総合窓口(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)
sex_name pref_code pref_name year_name pop
13000 東京都 2010年 6512110
13000 東京都 2015年 6666690
27000 大阪府 2010年 4285566
27000 大阪府 2015年 4256049
13000 東京都 2010年 6647278
13000 東京都 2015年 6848581
27000 大阪府 2010年 4579679
27000 大阪府 2015年 4583420

RESAS API

Lifecycle: experimental

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)
pref_name pref_code sic_code sic_name data/simc_code data/simc_name data/value data/employee data/labor
北海道 1 A 農業,林業 01 農業 4.4697 3.2743 0.9858
北海道 1 A 農業,林業 02 林業 6.1208 3.0613 1.4438

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

Lifecycle: experimental

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])
type city_code pref_name city_name district_name trade_price
中古マンション等 01101 北海道 札幌市中央区 大通西 32000000
宅地(土地と建物) 01101 北海道 札幌市中央区 大通西 380000000
中古マンション等 01101 北海道 札幌市中央区 大通西 10000000
中古マンション等 01101 北海道 札幌市中央区 大通西 9000000
中古マンション等 01101 北海道 札幌市中央区 大通西 3000000

参考リンク