library(carcrashassignment) knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) knitr::opts_knit$set(root.dir = system.file("extdata", package = "carcrashassignment"))
Together with this package it has been distributed some sample data for years 2014 and 2015. First, let's generate expected file name and later let's load the data into a data frame.
make_filename(2014) file <- make_filename(2014) data <- fars_read(file) class(data) str(data)
With function fars_read_years it can be obtained in a variable information of several years
data <- fars_read_years(years = c(2014, 2015)) class(data) data
All this car accidents data can be summarize easily for a list of years to obtain the number of accidents per year per month.
summary <- fars_summarize_years(years = c(2014, 2015)) knitr::kable(summary)
At last, car accidents occur during a year and in a state can be plotted, as in the following example for accidents in Florida in 2014.
fars_map_state(state.num = 12, year = 2014)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.