Working with FARS data made easy.
You can install the package from GitHub using the devtools
package:
devtools::install_github("vadimus202/fars")
library(fars)
#> Loading required package: maps
library(magrittr)
library(knitr)
my_file <- system.file("extdata", "fars_data.zip", package = "fars")
unzip(my_file, junkpaths = TRUE)
file_name <- make_filename(2015)
df <- fars_read(file_name)
df %>% head() %>% kable()
STATE | ST_CASE | VE_TOTAL | VE_FORMS | PVH_INVL | PEDS | PERNOTMVIT | PERMVIT | PERSONS | COUNTY | CITY | DAY | MONTH | YEAR | DAY_WEEK | HOUR | MINUTE | NHS | RUR_URB | FUNC_SYS | RD_OWNER | ROUTE | TWAY_ID | TWAY_ID2 | MILEPT | LATITUDE | LONGITUD | SP_JUR | HARM_EV | MAN_COLL | RELJCT1 | RELJCT2 | TYP_INT | WRK_ZONE | REL_ROAD | LGT_COND | WEATHER1 | WEATHER2 | WEATHER | SCH_BUS | RAIL | NOT_HOUR | NOT_MIN | ARR_HOUR | ARR_MIN | HOSP_HR | HOSP_MN | CF1 | CF2 | CF3 | FATALS | DRUNK_DR |
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
1 | 10001 | 1 | 1 | 0 | 0 | 0 | 1 | 1 | 127 | 0 | 1 | 1 | 2015 | 5 | 2 | 40 | 0 | 1 | 3 | 1 | 3 | SR-5 | NA | 1754 | 33.87865 | -87.32533 | 0 | 35 | 0 | 0 | 1 | 1 | 0 | 4 | 2 | 1 | 0 | 1 | 0 | 0000000 | 99 | 99 | 2 | 58 | 88 | 88 | 0 | 0 | 0 | 1 | 1 |
1 | 10002 | 1 | 1 | 0 | 0 | 0 | 1 | 1 | 83 | 0 | 1 | 1 | 2015 | 5 | 22 | 13 | 1 | 1 | 1 | 1 | 1 | I-65 | NA | 3604 | 34.91044 | -86.90871 | 0 | 34 | 0 | 0 | 1 | 1 | 0 | 3 | 2 | 10 | 0 | 10 | 0 | 0000000 | 99 | 99 | 22 | 20 | 88 | 88 | 0 | 0 | 0 | 1 | 0 |
1 | 10003 | 1 | 1 | 0 | 0 | 0 | 2 | 2 | 11 | 0 | 1 | 1 | 2015 | 5 | 1 | 25 | 0 | 1 | 3 | 1 | 2 | US-SR 6 | NA | 1958 | 32.14201 | -85.75846 | 0 | 42 | 0 | 0 | 1 | 1 | 0 | 4 | 2 | 1 | 0 | 1 | 0 | 0000000 | 99 | 99 | 1 | 45 | 99 | 99 | 0 | 0 | 0 | 1 | 1 |
1 | 10004 | 1 | 1 | 0 | 0 | 0 | 1 | 1 | 45 | 0 | 4 | 1 | 2015 | 1 | 0 | 57 | 0 | 1 | 4 | 1 | 3 | SR-27 | NA | 566 | 31.43981 | -85.51030 | 0 | 53 | 0 | 0 | 1 | 1 | 0 | 4 | 2 | 10 | 0 | 10 | 0 | 0000000 | 99 | 99 | 1 | 15 | 88 | 88 | 0 | 0 | 0 | 1 | 1 |
1 | 10005 | 2 | 2 | 0 | 0 | 0 | 2 | 2 | 45 | 2050 | 7 | 1 | 2015 | 4 | 7 | 9 | 0 | 2 | 3 | 1 | 2 | US-SR 53 | HINTON WATERS AVE | 308 | 31.31933 | -85.51510 | 0 | 12 | 6 | 0 | 2 | 3 | 0 | 1 | 1 | 1 | 0 | 1 | 0 | 0000000 | 99 | 99 | 7 | 16 | 88 | 88 | 0 | 0 | 0 | 1 | 0 |
1 | 10006 | 1 | 1 | 0 | 0 | 0 | 2 | 2 | 111 | 0 | 8 | 1 | 2015 | 5 | 9 | 59 | 0 | 1 | 5 | 2 | 4 | CR-82 | NA | 0 | 33.43849 | -85.38927 | 0 | 1 | 0 | 0 | 1 | 1 | 0 | 4 | 1 | 1 | 0 | 1 | 0 | 0000000 | 99 | 99 | 10 | 17 | 99 | 99 | 0 | 0 | 0 | 1 | 0 |
fars_summarize_years(2013:2015) %>% kable()
MONTH | 2013 | 2014 | 2015 |
---|---|---|---|
1 | 2230 | 2168 | 2368 |
2 | 1952 | 1893 | 1968 |
3 | 2356 | 2245 | 2385 |
4 | 2300 | 2308 | 2430 |
5 | 2532 | 2596 | 2847 |
6 | 2692 | 2583 | 2765 |
7 | 2660 | 2696 | 2998 |
8 | 2899 | 2800 | 3016 |
9 | 2741 | 2618 | 2865 |
10 | 2768 | 2831 | 3019 |
11 | 2615 | 2714 | 2724 |
12 | 2457 | 2604 | 2781 |
fars_map_state(6,2014)