Crime Rates in New York by County

Import Dataset (CSV Data File)

Preview Dataset

library(readr)
Crime_Data<-read_csv("C:\\users\\Sangita Roy\\Desktop\\crime_data.csv")
head(Crime_Data)

Rename Variables

library(dplyr)
Crime2<-rename(Crime_Data,County=Geo_NAME,
       Total_Crimes=SE_T003_001,
       Total_Violent_Crimes=SE_T003_002,
       Total_Property_Crimes=SE_T003_003)

Select Variables to Keep

Crime3<-select(Crime2,County,Total_Crimes,Total_Violent_Crimes, Total_Property_Crimes)

Create New Variables

Crime4<-mutate(Crime3,Percent_Violent=Total_Violent_Crimes/Total_Crimes)
head(Crime4)

Rename, Select, and Create Variables in 1 script using Magrittr

The single script below produces the same output as the 4 separate commands used above.

Crime5<-Crime_Data%>%
  rename(County=Geo_NAME,
       Total_Crimes=SE_T003_001,
       Total_Violent_Crimes=SE_T003_002,
       Total_Property_Crimes=SE_T003_003)%>%
  select(County,Total_Crimes,Total_Violent_Crimes, Total_Property_Crimes)%>%
  mutate(Percent_Violent=Total_Violent_Crimes/Total_Crimes)
head(Crime5)

NA

Filter Data (Filtering counties in New York which have violent crime rates greater than 50%)

Suffolk County

Crime6<-filter(Crime5,Percent_Violent>.5)
head(Crime6)

Column Chart shows the percent of violent crimes in each county in New York.

Suffolk County has the highest violent crime rate in New York with 100%.

library(ggplot2)
ggplot(data=Crime5)+
  geom_col(aes(x=County, y=Percent_Violent), fill="red")+
  coord_flip()