DW_HW4

c1<-crashreport %>% group_by(TYPEOFPERSON) %>% count(CRASHSEVERITY)

ggplot(c1, aes(x=TYPEOFPERSON,y=n,fill=factor(CRASHSEVERITY)))+
  geom_bar(stat="identity",position="dodge")

Data Source

The above used data set Traffic Data is sourced from Cincinnati open data. This dataset contains around 294290 observations and 28 variables.The above visualization shows crash severity across types of people involved like driver, occupant and pedestrian. Bar chart feature of ggplot is used along with colors to distinguish the types of severities across each category.

Insights

1. Property damage and injury is highest in the driver category
2. The severities gradually decrease in the occupant and pedestrian category.
3.In conclusion driver category has the highest crash severity compared to others involved in the crash.