【R】njtr1

1. はじめに

njtr1は、New Jersey Department of Transportationが管理している自動車の事故記録を簡単にダウンロードできるパッケージです。

2. インストール

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

install.packages("njtr1")

3. つかってみる

以下の5つの項目に関して、年度毎のデータを取得できるようです。

・Accidents
・Drivers
・Vhiecles
・Occupants
・Pedestrians

2019年のAccidentsのデータを取得して、何曜日に事故が多いか見てみます。

library(njtr1)
library(tidyverse)
library(flextable)

dat <- get_njtr1(year = 2019, type = "Accidents")

crash_date <- dat %>% 
  group_by(crash_day_of_week) %>% 
  summarise(cnt = n()) %>% 
  arrange(cnt) %>% 
  slice(-1) %>% 
  flextable()

土日は少ないですね。

その他、いろいろデータがあります。

保険会社のデータもあります。

njtr1::insurance

> njtr1::insurance
# A tibble: 454 x 9
   ID_NO NAME                ADDRESS_1      ADDRESS_2 ADDRESS_3 CITY     STATE ZIP   NOTES      
   <chr> <chr>               <chr>          <chr>     <chr>     <chr>    <chr> <chr> <chr>      
 1 001   SAMSUNG FIRE AND M~ 25 CHALLENGER~ NA        NA        RIDGEFI~ NJ    07660 COMM ONLY  
 2 002   BROTHERHOOD MUTUAL~ PO BOX 2227    NA        NA        FORT WA~ IN    07661 COMM ONLY  
 3 003   MID-CENTURY INS CO~ 4680 WILSHIRE~ NA        NA        LOS ANG~ CA    07662 PRIV PASS ~
 4 004   ACE PROPERTY & CAS~ 1601 CHESTNUT~ PO BOX 4~ NA        PHILADE~ PA    07663 COMM ONLY  
 5 005   FIRST NONPROFIT IN~ 111 NORTH CAN~ SUITE 801 NA        CHICAGO  IL    07664 COMM ONLY  
 6 006   EVEREST PREMIER IN~ 477 MARTINSVI~ NA        NA        LIBERTY~ NJ    07665 COMM ONLY  
 7 007   EVEREST DENALI INS~ 477 MARTINSVI~ NA        NA        LIBERTY~ NJ    07666 COMM ONLY  
 8 008   SELECTIVE AUTO INS~ PO BOX 7950    NA        NA        TRENTON  NJ    07667 PRIV PASS ~
 9 009   SENTRY CASUALTY CO~ 1800 NORTH PO~ PO BOX 8~ NA        STEVENS~ WI    07668 COMM ONLY  
10 010   TRAVELERS INDEMNIT~ ONE TOWER SQU~ NA        NA        HARTFORD CT    07669 COMM ONLY  
# ... with 444 more rows

4. さいごに

詳しく見てみると、かなり詳細な情報がデータとしてありました。