【R】zipangu

1. はじめに

日本関係のデータを扱えるzipanguというパッケージがあるようです。Rは欧米での利用が多いので日本関係のデータを扱えるというのはうれしいです。こちらのサイトを参考に使ってみます。

2. インストール

CRANからインストールします。

install.packages("zipangu")

3. 使ってみる

都道府県-市町村-町　に分離してくれます。

library(zipangu)
separate_address("大阪府大阪市阿倍野区長池町")

$prefecture
[1] "大阪府"

$city
[1] "大阪市阿倍野区"

$street
[1] "長池町"

郵便番号データをLoadできます。

read_zipcode("https://www.post.japanpost.jp/zipcode/dl/jigyosyo/zip/jigyosyo.zip")

> read_zipcode("https://www.post.japanpost.jp/zipcode/dl/jigyosyo/zip/jigyosyo.zip")
 URL 'https://www.post.japanpost.jp/zipcode/dl/jigyosyo/zip/jigyosyo.zip' を試しています 
Content type 'application/zip' length 767475 bytes (749 KB)
downloaded 749 KB

# A tibble: 22,346 x 13
   jis_code name_kana name  prefecture city  street street_sub jigyosyo_identi~ old_zip_code grouped individual_id
   <chr>    <chr>     <chr> <chr>      <chr> <chr>  <chr>      <chr>            <chr>        <chr>           <int>
 1 01101    イツパンザイダン~ 一般財団~ 北海道     札幌市中~ 大通西 5丁目地下鉄大通駅~ 0608614          060          札幌中央~             0
 2 01101    イトウグミドケン~ 伊藤組土~ 北海道     札幌市中~ 北四条西~ 4丁目1番地 0608554          060          札幌中央~             0
 3 01101    イトウチユウシヨ~ 伊藤忠商~ 北海道     札幌市中~ 北三条西~ 4丁目1番地第一生~ 0608547          060          札幌中央~             0
 4 01101    イリヨウホウジン~ 医療法人~ 北海道     札幌市中~ 南一条西~ 14丁目     0608570          060          札幌中央~             0
 5 01101    イワタチザキケン~ 岩田地崎~ 北海道     札幌市中~ 北二条東~ 17丁目2番地~ 0608630          060          札幌中央~             0
 6 01101    ウシオブツサン ~ 潮物産 ~ 北海道     札幌市中~ 北一条東~ 9丁目99番地19~ 0608540          060          札幌中央~             0
 7 01101    エ-アイ-ジ-エ~ AIGエ~ 北海道     札幌市中~ 北一条西~ 4丁目2-2札幌ノ~ 0608613          060          札幌中央~             0
 8 01101    エムエムエス マ~ エムエム~ 北海道     札幌市中~ 南一条西~ 4丁目20番地~ 0608537          060          札幌中央~             0
 9 01101    カ) ホツカイド~ 株式会社~ 北海道     札幌市中~ 大通西 3丁目11番地北洋~ 0608640          060          札幌中央~             0
10 01101    カブ トウキユウ~ 株式会社~ 北海道     札幌市中~ 北四条西~ 2丁目1     0608619          060          札幌中央~             0
# ... with 22,336 more rows, and 2 more variables: multiple_type <int>, update_type <int>

元号から西暦を求めます。

convert_jyear("H17")

> convert_jyear("H17")
[1] 2005

祝日のリストを表示します。

jholiday(2020, lang = "jp")

> jholiday(2020, lang = "jp")
$元日
[1] "2020-01-01"

$成人の日
[1] "2020-01-13"

$建国記念の日
[1] "2020-02-11"

$天皇誕生日
[1] "2020-02-23"

$春分の日
[1] "2020-03-20"

$昭和の日
[1] "2020-04-29"

$憲法記念日
[1] "2020-05-03"

$みどりの日
[1] "2020-05-04"

$こどもの日
[1] "2020-05-05"

$海の日
[1] "2020-07-23"

$スポーツの日
[1] "2020-07-24"

$山の日
[1] "2020-08-10"

$敬老の日
[1] "2020-09-21"

$秋分の日
[1] "2020-09-22"

$文化の日
[1] "2020-11-03"

$勤労感謝の日
[1] "2020-11-23"

データセットがあります。

jpnprefs

> jpnprefs
# A tibble: 47 x 5
   jis_code prefecture_kanji prefecture    region   major_island
   <chr>    <chr>            <chr>         <chr>    <chr>       
 1 01       北海道           Hokkaido      Hokkaido Hokkaido    
 2 02       青森県           Aomori-ken    Tohoku   Honshu      
 3 03       岩手県           Iwate-ken     Tohoku   Honshu      
 4 04       宮城県           Miyagi-ken    Tohoku   Honshu      
 5 05       秋田県           Akita-ken     Tohoku   Honshu      
 6 06       山形県           Yamagata-ken  Tohoku   Honshu      
 7 07       福島県           Fukushima-ken Tohoku   Honshu      
 8 08       茨城県           Ibaraki-ken   Kanto    Honshu      
 9 09       栃木県           Tochigi-ken   Kanto    Honshu      
10 10       群馬県           Gunma-ken     Kanto    Honshu      
# ... with 37 more rows

4. さいごに

日本人にとっては、非常にありがたいパッケージですね。