The hardware and bandwidth for this mirror is donated by dogado GmbH, the Webhosting and Full Service-Cloud Provider. Check out our Wordpress Tutorial.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]dogado.de.

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で人口ピラミッドのアニメーションを作る

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.