README.md

In UchidaMizuki/japanstat: Tools for Easy Use of 'e-Stat', 'RESAS' API, Etc

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)

| 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

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

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 |

参考リンク

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

UchidaMizuki/japanstat documentation built on April 11, 2024, 8:40 a.m.