For this data set, I show a visualization on traffic crash data from the City of Cincinnati. I decided to use this data because I felt it would be an interesting visualization to provide for the assignment. This set was obtained from The City of Cincinnati.

I was interested to see which days are most prone to having a crash in the city and was able to determine that Fridays are the day that are most likely. See the chart below that I created using the ggplot function we learned in class paired with the geom_bar(). This was very interesting to see.

library(tidyverse)
Traffic <- read.csv("C:/Users/bellmatj/OneDrive - University of Cincinnati/Data Wrangling/Week 5/Traffic_Crash_Reports__CPD_.csv")

Traffic_complete <- na.omit(Traffic) 
ggplot(data = Traffic_complete, aes(x = Traffic_complete$DAYOFWEEK)) +
  geom_bar()