Driving in Victoria can be a challenging experience

According to Suncorp/AAMI a third of Australia’s car accidents are caused by nose-to-tail collisions.

So at what speed should the average Victoria driver be on the highest alert?

Let’s have a look. As shown by the bar graph, the majority of collisions in Victoria occur when drivers are travelling at 60 km/h and involve vehicle to vehicle collisions. One should not be under the notion that accidents only occur at high speed on freeways.

The Crashes2 dataset will be used as an info source for all upcoming graphs

library(readr)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(ggplot2)
Crashes2 <- read.csv("C:/Users/verno/OneDrive/Documents/RMIT/MATH2404/Datasets/Crashes2.csv")

p <- ggplot(data = Crashes2, aes(x = ZONE, fill = ACCIDENT_TYPE))
p + geom_bar() + labs (x = "Speed Zone", y = "Number of accidents") + annotate(geom = "text", x = 11, y = -2, label ="Source: VicRoads") + ggtitle("Victoria's typical Vehicle accident profile between 2013 and 2019")

What does the yearly breakdown look like

library(dplyr)
library(ggplot2)
 
y <- ggplot(data = Crashes2, aes(x = YEAR, fill = SEVERITY))
y + geom_bar() 

###