An Analysis of FBI New York State Crime Data (Year 2016)

Jiawen Duan

Feb 8, 2019

#Importing Data Set
library(readr)
crime=read_csv("/Users/Jessica/Desktop/crime.csv",col_names = TRUE)

Parsed with column specification:
cols(
  .default = col_character()
)
See spec(...) for full column specifications.

head(crime)

#Removing Duplicated variable names
crime=crime[-1,]
names(crime)

 [1] "FIPS"                                                        
 [2] "Name of Area"                                                
 [3] "Qualifying Name"                                             
 [4] "Nation"                                                      
 [5] "State"                                                       
 [6] "County"                                                      
 [7] "Total Violent and Property Crimes"                           
 [8] "Total Violent and Property Crimes: Violent Crimes"           
 [9] "Total Violent and Property Crimes: Property Crimes"          
[10] "Total Violent Crimes"                                        
[11] "Total Violent Crimes: Murders and Nonnegligent Manslaughters"
[12] "Total Violent Crimes: Rape Revised Definition"               
[13] "Total Violent Crimes: Rape Legacy Definition"                
[14] "Total Violent Crimes: Robberies"                             
[15] "Total Violent Crimes: Aggravated Assaults"                   
[16] "Total Property Crimes"                                       
[17] "Total Property Crimes: Burglaries"                           
[18] "Total Property Crimes: Larcenies"                            
[19] "Total Property Crimes: Motor Vehicle Thefts"                 
[20] "Arsons"                                                      

NYcrime=select(crime,'Name of Area', 'Qualifying Name', 'County', 'Total Violent Crimes', 'Total Property Crimes', 'Arsons')
head(crime1)

#Average Arson Crime for the New York State
summarize(NYcrime,Arson=mean(as.numeric(Arsons),na.rm = TRUE))

# Nassau Vs. Suffolk
CountyCrime=filter(NYcrime, County=="59"| County=="103")
head(CountyCrime)

#Only Selecting Violent Cirmes for Nassau and Suffolk County
CountyViolent=select(CountyCrime,'Name of Area', 'Total Violent Crimes')
CountyViolent

table(CountyViolent)

                Total Violent Crimes
Name of Area     1157 63
  Nassau County     1  0
  Suffolk County    0  1

# Nassau County had more violent crimes than Suffolk County in 2016