NZTA-vehicle-crash-data/expl.R

# Exploration on data

# Libraries
library(ggplot2)

# Load data from Rdata file
load("crashdata.Rdata")

# Alternative way to load data
#dat <- read.csv("finaldata_201809.csv")

str(dat)

yeartab <- table(dat$CRASH_YEAR)

ggplot(dat) + geom_bar(aes(x=CRASH_YEAR))