{"id":24585925,"url":"https://github.com/uchidamizuki/jpstat","last_synced_at":"2025-12-12T02:25:59.422Z","repository":{"id":43701479,"uuid":"429282164","full_name":"UchidaMizuki/jpstat","owner":"UchidaMizuki","description":"R package to use e-Stat API, RESAS API, etc.","archived":false,"fork":false,"pushed_at":"2024-04-07T04:30:30.000Z","size":4841,"stargazers_count":13,"open_issues_count":2,"forks_count":1,"subscribers_count":2,"default_branch":"main","last_synced_at":"2025-04-17T22:49:36.351Z","etag":null,"topics":["estat","estat-api","r","resas","resas-api"],"latest_commit_sha":null,"homepage":"https://uchidamizuki.github.io/jpstat/","language":"R","has_issues":true,"has_wiki":null,"has_pages":null,"mirror_url":null,"source_name":null,"license":"other","status":null,"scm":"git","pull_requests_enabled":true,"icon_url":"https://github.com/UchidaMizuki.png","metadata":{"files":{"readme":"README-estat.Rmd","changelog":"NEWS.md","contributing":null,"funding":null,"license":"LICENSE","code_of_conduct":null,"threat_model":null,"audit":null,"citation":null,"codeowners":null,"security":null,"support":null,"governance":null,"roadmap":null,"authors":null,"dei":null,"publiccode":null,"codemeta":null,"zenodo":null}},"created_at":"2021-11-18T03:22:45.000Z","updated_at":"2024-02-24T05:00:28.000Z","dependencies_parsed_at":"2024-04-07T04:32:33.846Z","dependency_job_id":"c3e5ba58-bad2-4190-8fbb-d3faa71243b3","html_url":"https://github.com/UchidaMizuki/jpstat","commit_stats":{"total_commits":139,"total_committers":2,"mean_commits":69.5,"dds":0.3597122302158273,"last_synced_commit":"cec28c6b4917ef83e3e6010b0982a4d61cf27db4"},"previous_names":["uchidamizuki/japanstat"],"tags_count":5,"template":false,"template_full_name":null,"repository_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/UchidaMizuki%2Fjpstat","tags_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/UchidaMizuki%2Fjpstat/tags","releases_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/UchidaMizuki%2Fjpstat/releases","manifests_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/UchidaMizuki%2Fjpstat/manifests","owner_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners/UchidaMizuki","download_url":"https://codeload.github.com/UchidaMizuki/jpstat/tar.gz/refs/heads/main","host":{"name":"GitHub","url":"https://github.com","kind":"github","repositories_count":251311332,"owners_count":21569008,"icon_url":"https://github.com/github.png","version":null,"created_at":"2022-05-30T11:31:42.601Z","updated_at":"2022-07-04T15:15:14.044Z","host_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub","repositories_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories","repository_names_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repository_names","owners_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners"}},"keywords":["estat","estat-api","r","resas","resas-api"],"created_at":"2025-01-24T05:16:25.578Z","updated_at":"2025-12-12T02:25:59.374Z","avatar_url":"https://github.com/UchidaMizuki.png","language":"R","funding_links":[],"categories":[],"sub_categories":[],"readme":"---\noutput: github_document\n---\n\n\u003c!-- README.md is generated from README.Rmd. Please edit that file --\u003e\n\n```{r, include = FALSE}\nknitr::opts_chunk$set(\n  collapse = TRUE,\n  comment = \"#\u003e\",\n  fig.path = \"man/figures/README-\",\n  out.width = \"100%\"\n)\n```\n\n# e-Stat APIへのアクセス方法\n\n```{r setup, message=FALSE, warning=FALSE}\nlibrary(jpstat)\nlibrary(dplyr)\n```\n\njpstatでは，e-Stat APIのメタ情報取得 (getMetaInfo) と統計データ取得 (getStatsData) を用いて，統計表をダウンロードが可能です．\n\ne-Statでは，統計表ごとに統計表ID (statsDataId) が付与されています．統計表IDは，\nデータセット情報ページ ([例1](https://www.e-stat.go.jp/stat-search/database?page=1\u0026layout=datalist\u0026toukei=00200521\u0026tstat=000001011777\u0026cycle=0\u0026tclass1=000001011778\u0026statdisp_id=0003410379\u0026tclass2val=0)) や\n統計表・グラフ表示ページ ([例2](https://www.e-stat.go.jp/dbview?sid=0003413949)) のURLからも取得することが可能です．\n\nここでは，[例2](https://www.e-stat.go.jp/dbview?sid=0003413949)に挙げた国勢調査データを対象として，\n2010・2015年の東京都・大阪府における男女別人口を取得します．\n\nまず，`estat()`関数に，appIdとデータセット情報ページなどのURLまたは統計表ID (statsDataId) を入力してメタ情報 (統計データの属性情報) を取得します．\n\n```\n# 国勢調査 データセット情報ページ URL\ncensus \u003c- estat(appId = \"Your e-Stat appId\", \n                statsDataId = \"https://www.e-stat.go.jp/dbview?sid=0003413949\")\ncensus\n```\n\n```{r,echo=FALSE}\n# 国勢調査 データセット情報ページ URL\ncensus \u003c- estat(appId = keyring::key_get(\"estat-api\"), \n                statsDataId = \"https://www.e-stat.go.jp/dbview?sid=0003413949\")\ncensus\n```\n\n当該データには，`tab`，`cat01`，`area`, `time`の4種類の列 (以下，キーと呼びます) が存在します．\nそれぞれのキーには以下の情報が記載されています．\n\n1. デフォルトでの列名 (`tab`など)\n2. アイテム数 (`[2]`など)\n3. コード・名称などの属性 (`\u003ccode, name, level, unit\u003e`など)\n\nここからは，それぞれのキーごとに列名・アイテム数・属性を変更する方法を説明します．\nそれぞれのキーの情報を変更するためには，`activate()`関数を用いてキーを選択します．\n\n例えば，以下のように`tab`キーをアクティブにします．\n\n```{r}\ncensus |\u003e \n  activate(tab)\n\n# Or\ncensus |\u003e \n  activate(1)\n```\n\nキーをアクティブにすると当該キーのアイテム情報が表示されます．\nさらに，`filter()`関数や`select()`関数を用いてアイテム情報の絞り込みなどが可能です．\nここでは，「人口」のみを選択します．\n\n```{r}\ncensus \u003c- census |\u003e \n  activate(tab) |\u003e \n  filter(name == \"人口\") |\u003e \n  # アイテム数が1つのみであるため列を全て削除\n  select()\n```\n\n次に，`cat01`の「男，女及び総数2015」を選択します．`rekey()`関数によってキーの名称`cat01`を変更することが可能です（ここでは`sex`）．\nキーの名称を変更することでデータダウンロード時の列名を指定ことができます．\nまた，上と同様に属性の絞り込みを行います．\nここでは，`name`列を選択します．\n\n```{r}\ncensus \u003c- census |\u003e \n  activate(cat01) |\u003e\n  rekey(\"sex\") |\u003e \n  filter(name %in% c(\"男\", \"女\")) |\u003e \n  select(name)\n```\n\n上と同様に，`area`（「地域2015」）と`time`（「時間軸（調査年）」）の名称変更・属性絞り込みを行います．\n\n```{r}\ncensus \u003c- census |\u003e \n  activate(area) |\u003e \n  rekey(\"pref\") |\u003e \n  filter(name %in% c(\"東京都\", \"大阪府\")) |\u003e \n  select(code, name) |\u003e \n  \n  activate(time) |\u003e \n  rekey(\"year\") |\u003e \n  filter(name %in% c(\"2010年\", \"2015年\")) |\u003e \n  select(name) \n```\n\n以上の操作により，以下のように列名・アイテム数・属性が変更できました．\n\n```{r}\ncensus\n```\n\n最後に，`collect()`関数を用いてデータをダウンロードします．\n`collect()`関数の`n`で値の名称を指定します．\n\n```{r}\ncensus \u003c- census |\u003e\n  collect(n = \"pop\")\nknitr::kable(census)\n```\n","project_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Fuchidamizuki%2Fjpstat","html_url":"https://awesome.ecosyste.ms/projects/github.com%2Fuchidamizuki%2Fjpstat","lists_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Fuchidamizuki%2Fjpstat/lists"}