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

日本語

jpstat provides tools for using the API of e-Stat, the portal site for Japanese government statistics.

“This service uses API functions from e-Stat, however its contents are not guaranteed by government.” （「このサービスは、政府統計総合窓口(e-Stat)のAPI機能を使用していますが、サービスの内容は国によって保証されたものではありません。」）

Installation

install.packages("jpstat")

You can install the development version of jpstat from GitHub with:

# install.packages("devtools")
devtools::install_github("UchidaMizuki/jpstat")

library(jpstat)
library(tidyverse)

e-Stat API

Using the e-Stat API requires account registration (to obtain an API key called an appId); see the homepage for details. Use of the data is also subject to the terms of use.

The typical workflow for retrieving and reshaping data looks like this. Here, we retrieve the male/female population of Tokyo and Osaka for 2010 and 2015 from the System of Social and Demographic Statistics. For a more detailed, step-by-step walkthrough, see the Accessing the e-Stat API article.

# Set the API key
Sys.setenv(ESTAT_API_KEY = "Your appId")

# Retrieve the metadata
ssds <- estat(
  statsDataId = "https://www.e-stat.go.jp/en/dbview?sid=0000010101",
  lang = "E"
)
ssds

#> # ☐ tab:   Observation Value           [1] <code, name, level>
#> # ☐ cat01: A Population and Households [594] <code, name, level, unit>
#> # ☐ area:  AREA                        [48] <code, name, level>
#> # ☐ time:  SURVEY YEAR                 [51] <code, name, level>
#> # 
#> # Please `activate()`.

# Retrieve the male/female population of Tokyo and Osaka for 2010 and 2015
population <- ssds |>

  activate(tab) |>
  filter(name == "Observation value") |>
  select() |>

  activate(cat01) |>
  rekey("sex") |>
  filter(str_detect(name, "Total population \\((Male|Female)\\)")) |>
  select(name, unit) |>

  activate(area) |>
  rekey("pref") |>
  filter(name %in% c("Tokyo-to", "Osaka-fu")) |>
  select(code, name) |>

  activate(time) |>
  rekey("year") |>
  filter(name %in% c("2010", "2015")) |>
  select(name) |>

  collect(n = "population")
#> The total number of data is 8.

knitr::kable(population)

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.