Loading the Data

library(readxl)
library(ggplot2)
ccrb_data <- read_excel("~/Dropbox/Harrisburg University/2017 512/ccrb_data.xlsx")

Number of Complaints each year

This boxplot is also built using the mpg dataset. Notice the changes in axis labels, and an altered theme_XXXX

inci.year<- unique(ccrb_data[c("UniqueComplaintId","Incident Year")])
inci.year<- data.frame(inci.year)
ggplot(inci.year,aes(Incident.Year))+geom_bar()

Number of Complaints each area

This boxplot is also built using the mpg dataset. Notice the changes in axis labels, and an altered theme_XXXX

inci.area<- unique(ccrb_data[c("UniqueComplaintId","Borough of Occurrence")])
inci.area<- data.frame(inci.area)
ggplot(inci.area,aes(Borough.of.Occurrence))+geom_bar()

Types of Allegation

inci.type<- unique(ccrb_data[c("UniqueComplaintId","Allegation Description")])
inci.type<- data.frame(inci.type)
ggplot(inci.type,aes(Allegation.Description))+geom_bar()

Number of Incidiences Over years in Each Region

area.year<- unique(ccrb_data[c("UniqueComplaintId","Incident Year","Borough of Occurrence")])
area.year<- data.frame(area.year)
ggplot(area.year,aes(Incident.Year,fill=Borough.of.Occurrence))+geom_bar()