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の利用にはアカウント登録 (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の利用にはアカウント登録 (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 |
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 |