2018 data appears incomplete

expl.R

@@ -1,9 +1,16 @@
 # 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)
+str(dat)
+
+yeartab <- table(dat$CRASH_YEAR)
+
+ggplot(dat) + geom_bar(aes(x=CRASH_YEAR))