EDA on US Crime Data
Faisal Amir Maz
2022-11-07
link to the dataset: https://www.kaggle.com/datasets/jgiigii/uscrimesdataset
# Libraries
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(lubridate)##
## Attaching package: 'lubridate'## The following objects are masked from 'package:base':
##
## date, intersect, setdiff, unionWrangling
Reading The Data
#read the data
crime <- read.csv("Crime.csv")
head(crime)glimpse(crime)## Rows: 306,094
## Columns: 30
## $ Incident.ID <int> 201202980, 201181293, 201181293, 201193163, 201…
## $ Offence.Code <chr> "3550", "3522", "3562", "3520", "2204", "2404",…
## $ CR.Number <int> 180042096, 180015424, 180015424, 180029476, 180…
## $ Dispatch.Date...Time <chr> "08/23/2018 09:52:08 PM", "03/30/2018 01:00:55 …
## $ NIBRS.Code <chr> "35B", "35A", "35A", "35A", "220", "240", "520"…
## $ Victims <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,…
## $ Crime.Name1 <chr> "Crime Against Society", "Crime Against Society…
## $ Crime.Name2 <chr> "Drug Equipment Violations", "Drug/Narcotic Vio…
## $ Crime.Name3 <chr> "DRUGS - NARCOTIC EQUIP - POSSESS", "DRUGS - OP…
## $ Police.District.Name <chr> "GERMANTOWN", "BETHESDA", "BETHESDA", "MONTGOME…
## $ Block.Address <chr> "12800 BLK MIDDLEBROOK RD", "8300 BLK WOODMON…
## $ City <chr> "GERMANTOWN", "BETHESDA", "BETHESDA", "GAITHERS…
## $ State <chr> "MD", "MD", "MD", "MD", "MD", "MD", "MD", "MD",…
## $ Zip.Code <int> 20874, 20814, 20814, 20878, 20815, 20815, 20906…
## $ Agency <chr> "MCPD", "MCPD", "MCPD", "GPD", "MCPD", "MCPD", …
## $ Place <chr> "Street - In vehicle", "Street - In vehicle", "…
## $ Sector <chr> "N", "E", "E", "P", "E", "E", "J", "K", "H", "L…
## $ Beat <chr> "5N1", "2E2", "2E2", "6P2", "2E1", "2E1", "4J1"…
## $ PRA <chr> "447", "054", "054", "445", "017", "017", "369"…
## $ Address.Number <int> 12800, 8300, 8300, 400, 4800, 4800, 14200, 3900…
## $ Street.Prefix <chr> "", "", "", "", "", "", "", "", "", "", "", "",…
## $ Street.Name <chr> "MIDDLEBROOK", "WOODMONT", "WOODMONT", "QUINCE …
## $ Street.Suffix <chr> "", "", "", "", "", "", "", "", "", "", "", "",…
## $ Street.Type <chr> "RD", "AVE", "AVE", "RD", "AVE", "AVE", "ST", "…
## $ Start_Date_Time <chr> "08/23/2018 09:52:00 PM", "03/30/2018 01:01:00 …
## $ End_Date_Time <chr> "", "", "", "06/15/2018 03:00:00 AM", "09/03/20…
## $ Latitude <dbl> 39.17774, 38.99269, 38.99269, 39.14795, 38.9661…
## $ Longitude <dbl> -77.26562, -77.09706, -77.09706, -77.21819, -77…
## $ Police.District.Number <chr> "5D", "2D", "2D", "6D", "2D", "2D", "4D", "4D",…
## $ Location <chr> "(39.1777, -77.2656)", "(38.9927, -77.0971)", "…length(unique(crime$Crime.Name3))## [1] 337table(crime$Crime.Name3)##
##
## 272
## ABDUCT - NO RANSOM OR ASSAULT
## 6
## ABORTION
## 1
## ALL OTHER OFFENSES
## 1632
## ANIMAL BITE
## 45
## ARSON - BURNING OF - (IDENTIFY OBJECT)
## 146
## ARSON - BUSINESS
## 12
## ARSON - BUSINESS-ENDANGERED LIFE
## 8
## ARSON - PUB-BLDG
## 6
## ARSON - PUB-BLDG-ENDANGERED LIFE
## 5
## ARSON - RESIDENTIAL
## 66
## ARSON - RESIDENTIAL-ENDANGERED LIFE
## 39
## ARSON (DESCRIBE OFFENSE)
## 63
## ASSAULT - 2ND DEGREE
## 17441
## ASSAULT - AGGRAVATED - FAMILY-GUN
## 88
## ASSAULT - AGGRAVATED - FAMILY-OTHER WEAPON
## 732
## ASSAULT - AGGRAVATED - FAMILY-STRONG-ARM
## 612
## ASSAULT - AGGRAVATED - GUN
## 506
## ASSAULT - AGGRAVATED - NON-FAMILY-GUN
## 215
## ASSAULT - AGGRAVATED - NON-FAMILY-OTHER WEAPON
## 1102
## ASSAULT - AGGRAVATED - NON-FAMILY-STRONG-ARM
## 233
## ASSAULT - AGGRAVATED - OTHER
## 690
## ASSAULT - AGGRAVATED - POL OFF-GUN
## 10
## ASSAULT - AGGRAVATED - POL OFF-OTHER WEAPON
## 65
## ASSAULT - AGGRAVATED - POL OFF-STRONG-ARM
## 21
## ASSAULT - AGGRAVATED - PUB OFF-GUN
## 4
## ASSAULT - AGGRAVATED - PUB OFF-OTHER WEAPON
## 45
## ASSAULT - AGGRAVATED - PUB OFF-STRONG-ARM
## 6
## ASSAULT - INTIMIDATION (INCLUDES STALKING)
## 334
## ASSAULT - SIMPLE
## 3622
## ATTEMPTED ASSAULT AGGRAVATED POL OFF KNIFE
## 23
## AUTO THEFT - POSSESS STOLEN VEHICLE
## 109
## AUTO THEFT - STRIP STOLEN VEHICLE
## 7
## AUTO THEFT - THEFT AND SALE VEHICLE
## 11
## AUTO THEFT - THEFT AND STRIP VEHICLE
## 5
## AUTO THEFT - THEFT AND USE VEHICLE OTHER CRIME
## 13
## AUTO THEFT - VEHICLE THEFT
## 6194
## BAIL - PERSON RECOG
## 1
## BRIBERY (DESCRIBE OFFENSE)
## 1
## BURGLARY - BANKING-TYPE INST
## 6
## BURGLARY - FORCED ENTRY-NONRESIDENTIAL
## 1979
## BURGLARY - FORCED ENTRY-RESIDENTIAL
## 3336
## BURGLARY - NO FORCED ENTRY-NONRESIDENTIAL
## 547
## BURGLARY - NO FORCED ENTRY-RESIDENTIAL
## 2342
## BURGLARY - SAFE-VAULT
## 22
## BURGLARY (DESCRIBE OFFENSE)
## 535
## BURGLARY TOOLS - POSSESS
## 48
## CARRYING PROHIBITED WEAPON (SPECIFY WEAPON)
## 54
## COMM SEX OFF - HOMOSEXUAL PROSTITUTION
## 8
## COMM SEX OFF - KEEPING HOUSE ILL FAME
## 1
## COMM SEX OFF - PROCURE FOR PROSTITUTE (PIMPING)
## 6
## COMM SEX OFF - PROCURE PROSTITUTE - ADULT
## 73
## COMM SEX OFF - PROCURE PROSTITUTE - MINOR
## 6
## COMM SEX OFF - PROSTITUTION
## 170
## COMM SEX OFF - TRANSPORT FEMALE INTERSTATE FOR IMM
## 1
## COMM SEX OFF (DESCRIBE OFFENSE)
## 13
## COMPOUNDING CRIME
## 1
## CONDIT RELEASE VIOLATION
## 3
## CONSERVATION - ANIMALS (DESCRIBE OFFENSE)
## 1
## COUNTERFEITING
## 143
## COUNTERFEITING - PASS COUNTERFEITED
## 296
## COUNTERFEITING - POSS COUNTERFEITED
## 71
## COUNTERFEITING (DESCRIBE OFFENSE)
## 97
## CRIMES AGAINST PERSON
## 14
## DAMAGE PROPERTY - BUSINESS
## 2095
## DAMAGE PROPERTY - BUSINESS-WITH EXPLOSIVE
## 2
## DAMAGE PROPERTY - PRIVATE
## 12073
## DAMAGE PROPERTY - PRIVATE-WITH EXPLOSIVE
## 7
## DAMAGE PROPERTY - PUBLIC
## 711
## DAMAGE PROPERTY - PUBLIC-WITH EXPLOSIVE
## 1
## DAMAGE PROPERTY (DESCRIBE OFFENSE)
## 4099
## DRIVING UNDER THE INFLUENCE DRUGS
## 757
## DRIVING UNDER THE INFLUENCE LIQUOR
## 14168
## DRUGS - AMPHETAMINE - POSSESS
## 422
## DRUGS - AMPHETAMINE - SELL
## 84
## DRUGS - AMPHETAMINE (DESCRIBE OFFENSE)
## 20
## DRUGS - BARBITURATE - POSSESS
## 175
## DRUGS - BARBITURATE - SELL
## 23
## DRUGS - BARBITURATE (DESCRIBE OTHER)
## 3
## DRUGS - COCAINE - POSSESS
## 1804
## DRUGS - COCAINE - SELL
## 636
## DRUGS - COCAINE - SMUGGLE
## 7
## DRUGS - COCAINE (DESCRIBE OFFENSE)
## 134
## DRUGS - DANGEROUS (DESCRIBE OFFENSE)
## 175
## DRUGS - HALLUCINOGEN - DISTRIB
## 34
## DRUGS - HALLUCINOGEN - MFR
## 2
## DRUGS - HALLUCINOGEN - POSSESS
## 469
## DRUGS - HALLUCINOGEN - SELL
## 63
## DRUGS - HALLUCINOGEN (DESCRIBE OFFENSE)
## 47
## DRUGS - HEROIN - (DESCRIBE OFFENSE)
## 95
## DRUGS - HEROIN - POSSESS
## 534
## DRUGS - HEROIN - SELL
## 93
## DRUGS - HEROIN - SMUGGLE
## 4
## DRUGS - MARIJUANA - POSSESS
## 15613
## DRUGS - MARIJUANA - PRODUCING
## 27
## DRUGS - MARIJUANA - SELL
## 905
## DRUGS - MARIJUANA - SMUGGLE
## 51
## DRUGS - MARIJUANA (DESCRIBE OFFENSE)
## 455
## DRUGS - NARCOTIC EQUIP - POSSESS
## 1963
## DRUGS - OPIUM OR DERIVATIVE - POSSESS
## 738
## DRUGS - OPIUM OR DERIVATIVE - SELL
## 143
## DRUGS - OPIUM OR DERIVATIVE - SMUGGLE
## 6
## DRUGS - OPIUM OR DERIVATIVE (DESCRIBE OFFENSE)
## 87
## DRUGS - SYNTHETIC NARCOTIC - (DESCRIBE OFFENSE)
## 23
## DRUGS - SYNTHETIC NARCOTIC - POSSESS
## 309
## DRUGS - SYNTHETIC NARCOTIC - SELL
## 52
## DRUGS - SYNTHETIC NARCOTIC - SMUGGLE
## 7
## DRUNKENNESS
## 105
## EMBEZZLE - BANKING-TYPE INST
## 35
## EMBEZZLE - BUSINESS PROP
## 92
## EMBEZZLE - INTERSTATE SHIPMENT
## 3
## EMBEZZLE - POSTAL
## 4
## EMBEZZLE - PUBLIC PROP
## 2
## EMBEZZLE (DESCRIBE OFFENSE)
## 328
## ESCAPE
## 6
## ESCAPE - FLIGHT TO AVOID
## 5
## ESCAPE FROM CUSTODY
## 22
## ESCAPE/FLIGHT (DESCRIBE OFFENSE)
## 1
## EXTORT - THREAT ACCUSE PERSON OF CRIME
## 16
## EXTORT - THREAT DAMAGE PROP
## 5
## EXTORT - THREAT INJURE PERSON
## 91
## EXTORT - THREAT INJURE REPUTATION
## 134
## EXTORT - THREAT OF INFORMING OF VIOLENCE
## 4
## EXTORTION (DESCRIBE OFFENSE)
## 133
## FAILING TO MOVE ON
## 5
## FAILURE REPORT CRIME
## 1
## FAILURE TO APPEAR - NON SUPPORT
## 3
## FALSE CITIZENSHIP
## 3
## FALSE IMPRISONMENT - MINOR - NONPARENTAL
## 15
## FALSE IMPRISONMENT - MINOR - PARENTAL
## 1
## FAMILY OFFENSE - CONTRIBUTING TO THE DELINQUENCY O
## 7
## FAMILY OFFENSE - CRUELTY TOWARD CHILD
## 173
## FAMILY OFFENSE - CRUELTY TOWARD WIFE
## 2
## FAMILY OFFENSE - NEGLECT CHILD (INCLUDES NONSUPPOR
## 448
## FAMILY OFFENSE - NEGLECT FAMILY
## 67
## FAMILY OFFENSE (DESCRIBE OFFENSE)
## 85
## FIRE (NOT ARSON)
## 222
## FIRE CODE VIOLATION
## 42
## FORGERY - PASS FORGED
## 182
## FORGERY - POSSESS FORGED
## 39
## FORGERY (DESCRIBE OFFENSE)
## 329
## FORGERY OF CHECKS
## 1785
## FORGERY OF OTHER
## 205
## FORGERY/COUNTERFEITING - POSSESS TOOLS FOR
## 7
## FRAUD - CONFIDENCE GAME
## 2563
## FRAUD - FAILURE TO PAY
## 263
## FRAUD - FALSE STATEMENT
## 59
## FRAUD - ILLEGAL USE CREDIT CARDS
## 4640
## FRAUD - IMPERSONATION
## 1595
## FRAUD - INSUFFICIENT FUNDS CHECK
## 336
## FRAUD - MAIL
## 42
## FRAUD - SWINDLE
## 1127
## FRAUD - WELFARE
## 11
## FRAUD (DESCRIBE OFFENSE)
## 2497
## FRAUD AND ABUSE - COMPUTER
## 141
## FRAUD BY WIRE
## 270
## FUGITIVE FROM JUSTICE (OUT OF STATE)
## 361
## FUGITIVE FROM MD JURISDICTION
## 305
## GAMBLING - DICE GAME
## 1
## HEALTH - DRUGS - HEALTH OR SAFETY
## 6
## HEALTH - DRUGS - MISBRANDED
## 4
## HEALTH - SAFETY (DESCRIBE OFFENSE)
## 19
## HIT AND RUN
## 56
## HOME IMPROVEMENT VIOLATION
## 11
## HOMICIDE - BY NON-POLICE - JUSTIFIABLE
## 3
## HOMICIDE - JUSTIFIABLE
## 11
## HOMICIDE - NEGLIGENT MANSLAUGHTER
## 2
## HOMICIDE - WILLFUL KILL
## 23
## HOMICIDE - WILLFUL KILL-FAMILY
## 12
## HOMICIDE - WILLFUL KILL-FAMILY-GUN
## 9
## HOMICIDE - WILLFUL KILL-GUN
## 39
## HOMICIDE - WILLFUL KILL-NON-FAMILY
## 6
## HOMICIDE - WILLFUL KILL-NON-FAMILY-GUN
## 4
## HOMICIDE (DESCRIBE OFFENSE)
## 25
## HOMOSEXUAL ACT WITH BOY
## 9
## HOMOSEXUAL ACT WITH MAN
## 3
## HUMAN TRAFFICKING - COMMERCIAL SEX ACTS
## 44
## HUMAN TRAFFICKING - INVOLUNTARY SERITUDE
## 2
## IDENTITY THEFT
## 8673
## ILLEGAL ENTRY
## 2
## INCOME TAX (DESCRIBE OFFENSE)
## 3
## INVASION PRIVACY - OPENING SEALED COMMUNICATION
## 2
## INVASION PRIVACY - WIRETAP - FAILURE TO REPORT
## 3
## INVASION PRIVACY (DESCRIBE OFFENSE)
## 6
## JUVENILE - OTHER
## 210
## JUVENILE - OUT OF CONTROL
## 13
## JUVENILE - RUNAWAY
## 3575
## KIDNAP - MINOR PARENTAL
## 5
## KIDNAP ADULT
## 28
## KIDNAP ADULT FOR RANSOM
## 1
## KIDNAP MINOR
## 14
## KIDNAP MINOR - NONPARENTAL
## 7
## KIDNAPPING (DESCRIBE OFFENSE)
## 13
## LARCENY - AUTO PARTS
## 6682
## LARCENY - FROM AUTO
## 26275
## LARCENY - FROM BANKING-TYPE INST
## 78
## LARCENY - FROM BLDG
## 10711
## LARCENY - FROM COIN MACHINE
## 56
## LARCENY - FROM INTERSTATE SHIPMENT
## 5
## LARCENY - FROM MALLS
## 468
## LARCENY - FROM SHIPMENT
## 53
## LARCENY - FROM YARDS
## 557
## LARCENY - POCKET PICKING
## 679
## LARCENY - POSTAL
## 901
## LARCENY - PURSE SNATCHING - NO FORCE
## 402
## LARCENY - SHOPLIFTING
## 16076
## LARCENY - THEFT OF US GOVERNMENT PROPERTY
## 10
## LARCENY (DESCRIBE OFFENSE)
## 12425
## LIQUOR - MANUFACTURE
## 1
## LIQUOR - POSSESS
## 4598
## LIQUOR - SELL
## 452
## LIQUOR - TRANSPORT
## 12
## LIQUOR (DESCRIBE OFFENSE)
## 1542
## LITTERING/TRASH DUMPING
## 311
## LOITERING/VAGRANCY
## 33
## LOST PROPERTY
## 10917
## MENTAL ILLNESS
## 3111
## MENTAL ILLNESS - EMERGENCY PETITION
## 11780
## MENTAL TRANSPORT - ONLY
## 613
## MISSING PERSON
## 4659
## MONEY LAUNDERING (DESCRIBE OFFENSE)
## 3
## MORALS - DECENCY CRIMES
## 8
## NON SUPPORT
## 1
## OBSCENE COMMUNICATION
## 119
## OBSCENE MATERIAL
## 150
## OBSCENE MATERIAL - DISTRIBUTE
## 82
## OBSCENE MATERIAL - MANUFACTURE
## 9
## OBSCENE MATERIAL - POSSESS
## 51
## OBSCENITY (DESCRIBE OFFENSE)
## 3
## OBSTRUCT - (SPECIFY JUDIC, CONGR, LEGIS, COMMSN)
## 7
## OBSTRUCT GOVT - CONTEMPT OF COURT
## 9
## OBSTRUCT GOVT - FAILURE TO APPEAR
## 14
## OBSTRUCT GOVT - MISCONDUCT - JUDIC OFFICER
## 1
## OBSTRUCT GOVT - OBSTRUCTING COURT ORDER
## 60
## OBSTRUCT GOVT - OBSTRUCTING JUSTICE
## 63
## OBSTRUCT GOVT - PAROLE VIOLATION
## 2
## OBSTRUCT GOVT - PROBATION VIOLATION
## 8
## OBSTRUCT GOVT - VIOLATION OF A COURT ORDER
## 1423
## OBSTRUCT POLICE - EVIDENCE - DESTROYING
## 20
## OBSTRUCT POLICE - ILLEGAL ARREST
## 2
## OBSTRUCT POLICE - MAKING FALSE REPORT
## 114
## OBSTRUCT POLICE - OBSTRUCT CRIMINAL INVEST
## 333
## OBSTRUCT POLICE - RESISTING OFFICER
## 801
## OBSTRUCT POLICE - WITNESS - DECEIVING
## 1
## OBSTRUCT POLICE - WITNESS - DISSUADING
## 5
## OBSTRUCT POLICE (DESCRIBE OFFENSE)
## 394
## OVERDOSE
## 873
## POLICE INFORMATION
## 18489
## PROPERTY CRIMES
## 78
## PUBLIC ORDER CRIMES
## 82
## PUBLIC PEACE - ASSEMBLY - UNLAWFUL
## 1
## PUBLIC PEACE - DISORDERLY CONDUCT
## 4799
## PUBLIC PEACE - HARASSING COMMUNICATION
## 1456
## PUBLIC PEACE (DESCRIBE OFFENSE)
## 198
## RAPE - GUN
## 12
## RAPE - STRONG-ARM
## 1337
## RAPE WITH WEAPON
## 27
## RECEIVE STOLEN VEHICLE
## 5
## RECOVERED PROPERTY - MONT CO.
## 2463
## RECOVERED PROPERTY - OTHER
## 1656
## ROBBERY - BANKING-TYPE INST
## 61
## ROBBERY - BUSINESS-GUN
## 228
## ROBBERY - BUSINESS-OTHER WEAPON
## 103
## ROBBERY - BUSINESS-STRONG-ARM
## 116
## ROBBERY - CARJACKING - ARMED
## 148
## ROBBERY - CARJACKING - STRONG-ARM
## 63
## ROBBERY - DOMESTIC
## 122
## ROBBERY - FORCIBLE PURSE SNATCHING
## 31
## ROBBERY - GUN
## 278
## ROBBERY - KNIFE
## 256
## ROBBERY - OTHER WEAPON
## 66
## ROBBERY - RESIDENTIAL-GUN
## 122
## ROBBERY - RESIDENTIAL-OTHER WEAPON
## 45
## ROBBERY - RESIDENTIAL-STRONG-ARM
## 118
## ROBBERY - STREET-GUN
## 334
## ROBBERY - STREET-OTHER WEAPON
## 162
## ROBBERY - STREET-STRONG-ARM
## 772
## ROBBERY - STRONG ARM
## 429
## ROBBERY (DESCRIBE OFFENSE)
## 122
## SEX ASSAULT - CARNAL ABUSE
## 173
## SEX ASSAULT - FONDLING
## 685
## SEX ASSAULT - SODOMY-BOY-STRONG-ARM
## 92
## SEX ASSAULT - SODOMY-GIRL-GUN
## 1
## SEX ASSAULT - SODOMY-GIRL-STRONG-ARM
## 262
## SEX ASSAULT - SODOMY-GIRL-WEAPON
## 1
## SEX ASSAULT - SODOMY-MAN-GUN
## 2
## SEX ASSAULT - SODOMY-MAN-STRONG-ARM
## 48
## SEX ASSAULT - SODOMY-MAN-WEAPON
## 7
## SEX ASSAULT - SODOMY-WOMAN-GUN
## 3
## SEX ASSAULT - SODOMY-WOMAN-STRONG-ARM
## 156
## SEX ASSAULT - SODOMY-WOMAN-WEAPON
## 2
## SEX ASSAULT - WITH AN OBJECT
## 388
## SEX OFFENSE - AGAINST CHILD-FONDLING
## 378
## SEX OFFENSE - FAILURE TO REGISTER AS A SEX OFFENDE
## 160
## SEX OFFENSE - FONDLING
## 422
## SEX OFFENSE - INDECENT EXPOSURE
## 370
## SEX OFFENSE - INDECENT EXPOSURE TO ADULT
## 283
## SEX OFFENSE - INDECENT EXPOSURE TO MINOR
## 90
## SEX OFFENSE - PEEPING TOM
## 110
## SEX OFFENSE - SEX OFFENDER REGISTRATION VIOLATION
## 38
## SMUGGLING - CONTRABAND
## 1
## SMUGGLING - CONTRABAND INTO PRISON
## 5
## SMUGGLING (DESCRIBE OFFENSE)
## 2
## SOLICITATION - ADULT FOR SEXUAL ACTS
## 14
## SOLICITATION - MINOR FOR SEXUAL ACTS
## 49
## STATUTORY RAPE - NO FORCE
## 31
## STOLEN PROPERTY - CONCEAL
## 1
## STOLEN PROPERTY - POSSESS
## 64
## STOLEN PROPERTY - RECEIVE
## 8
## STOLEN PROPERTY - SALE OF
## 3
## STOLEN PROPERTY - TRANSPORT INTERSTATE
## 1
## STOLEN PROPERTY (DESCRIBE OFFENSE)
## 32
## STOLEN VEHICLE (DESCRIBE OFFENSE)
## 300
## SUDDEN DEATH
## 5990
## SUICIDE - ATTEMPT
## 873
## SUICIDE - COMPLETED
## 376
## TAX - LIQUOR (DESCRIBE OFFENSE)
## 1
## THREAT - FEDERAL PROTECTEES
## 2
## THREAT - TERRORISTIC - STATE OFFENSES
## 105
## TRAFFIC OFFENSES (DESCRIBE OFFENSE)
## 256
## TRANSPORTING DANGEROUS MATERIALS
## 1
## TRESPASSING
## 3907
## UNAUTHORIZED USE OF VEHICLE (INCLUDES JOY RIDING)
## 997
## WEAPON - ALTERING IDENTIFICATION ON
## 1
## WEAPON - CONCEALED
## 765
## WEAPON - EXPLOSIVES - POSSESSING
## 16
## WEAPON - EXPLOSIVES - TRANSPORTING
## 1
## WEAPON - EXPLOSIVES - USING
## 5
## WEAPON - FIRING
## 269
## WEAPON - INCENDIARY DEVICE - POSSESS
## 5
## WEAPON - INCENDIARY DEVICE - USING
## 4
## WEAPON - POSSESSION
## 987
## WEAPON - SELLING
## 3
## WEAPON - THREAT TO BOMB
## 80
## WEAPON - THREAT TO BURN
## 15
## WEAPON OFFENSE (DESCRIBE OFFENSE)
## 167
## WEAPON TRAFFICKING
## 3Summary on unique values on every column
Offence Code: having 342 unique values CR Number has 200k unique Nibrs Code has 58 unique values https://ucr.fbi.gov/nibrs/2011/resources/nibrs-offense-codes 67 cities 11 states (305k crime happened in State MD (Maryland)) 8 agencies (MCPD has 200k (montgomery county Police Departement)) 99 places 16 sectors 57 Beats 807 PRA 33 street types Crime.Name1 has 6 unique values Crime.Name2 has 60 unique values Crime.Name3 has 337 unique values
sum(duplicated(crime))## [1] 0No duplicated data
Converting the data types
crime <- crime %>%
mutate(State = as.factor(State)) %>%
mutate(Sector = as.factor(Sector)) %>%
mutate(NIBRS.Code = as.factor(NIBRS.Code)) %>%
mutate(Street.Type = as.factor(Street.Type)) %>%
mutate(Agency = as.factor(Agency)) %>%
mutate(Crime.Name1 = as.factor(Crime.Name1))crime$Dispatch.Date...Time <- mdy_hms(crime$Dispatch.Date...Time)
crime$Start_Date_Time <- mdy_hms(crime$Start_Date_Time)
crime$End_Date_Time <- mdy_hms(crime$End_Date_Time)
tail(crime)# abis ini select data tahunnya dari 2019 ke 2020 aja (buat liat perbedaan tahun setelah pandemi dansebelum pandemi)
# lebih spesifik (kalo 2 tahun masih berat pake 1 tahun aja yaitu 2020)Exploratory
crime %>%
group_by(Crime.Name1) %>%
summarise(n())name1_other <- crime %>%
filter(Crime.Name1=="Other")
unique(name1_other$Crime.Name2)## [1] "All Other Offenses" "Not Mapped" "NOT NIBRS CODE"crime$year <- year(crime$Start_Date_Time)
crime$month <- month(crime$Start_Date_Time, label = T)
crime$day_of_week <- wday(crime$Start_Date_Time, label = T)
crime$hour <- hour(crime$Start_Date_Time)head(crime)Group By Year
crime_year <- crime %>%
group_by(year) %>%
summarise(n())
crime_yearcrime_month <- crime %>%
group_by(month) %>%
summarise(n())
crime_monthplot(crime$month)
crime_dayofweek <- crime %>%
group_by(day_of_week) %>%
summarise(count = n())
crime_dayofweekplot(crime$day_of_week)
crime %>%
group_by(hour) %>%
summarise(count = n()) %>%
arrange(-count)crime_place <- crime %>%
group_by(Place) %>%
summarise(count = n()) %>%
arrange(-count)
crime_placecrime %>%
group_by(Crime.Name1) %>%
summarise(count = n())plot(crime$Crime.Name1)
sum(is.na(crime$Crime.Name1))## [1] 0crime %>%
group_by(City) %>%
summarise(count = n()) %>%
arrange(-count)sum(is.na(crime))## [1] 239975nrow(crime)## [1] 306094dn <- function(x){
if(x > 6 & x < 18){x <- "day"}
else{x <- "night"}
}crime$day_night <- sapply(crime$hour, dn)head(crime)crime$day_night <- as.factor(crime$day_night)table(crime$day_night)##
## day night
## 150845 155249crime$case_duration <- difftime(
time1 = crime$End_Date_Time,
time2 = crime$Start_Date_Time,
units = "hours"
)
head(crime)duration_clean <- na.omit(crime$case_duration)
range(duration_clean)## Time differences in hours
## [1] -6443.20 52495.25plot(duration_clean)