m

Chọn file

crime = read.csv("C:/Users/Dell/Desktop/Dataset/Crime data 2003to2018.csv")

Show data

dim(crime)

## [1] 1048575       8

head(crime)

##          ID       Category                           Description     Day
## 1 180362289  VEHICLE THEFT                     STOLEN MOTORCYCLE Tuesday
## 2 180360948   NON-CRIMINAL          AIDED CASE, MENTAL DISTURBED Tuesday
## 3 180360879 OTHER OFFENSES                      PAROLE VIOLATION Tuesday
## 4 180360879 OTHER OFFENSES              TRAFFIC VIOLATION ARREST Tuesday
## 5 180360879 OTHER OFFENSES                     TRAFFIC VIOLATION Tuesday
## 6 180360829 OTHER OFFENSES DRIVERS LICENSE, SUSPENDED OR REVOKED Tuesday
##         Date  Time District     Resolution
## 1 05/15/2018 10:30 SOUTHERN           NONE
## 2 05/15/2018  4:14 SOUTHERN           NONE
## 3 05/15/2018  2:01  MISSION ARREST, BOOKED
## 4 05/15/2018  2:01  MISSION ARREST, BOOKED
## 5 05/15/2018  2:01  MISSION ARREST, BOOKED
## 6 05/15/2018  1:27  MISSION           NONE

Biểu đồ tần số

library(sjPlot)

## Learn more about sjPlot with 'browseVignettes("sjPlot")'.

plot_frq(crime$Category, coord.flip = T)

plot_frq(crime$Day)

Sắp xếp thứ tự Day bằng hàm factor:

#crime$Day = factor(crime$Day, levels = c("Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday")