crime = read.csv("~/Google Drive/NCKH/0 Nguyen Van Tuan/Lop NCKH 2019 BVCR/Datasets cho thuc hanh CR 8-2019/Crime data 2003to2018.csv")
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

T?m hi???u bao nhi?u lo???i t???i ph???m v? khi n?o

library(sjPlot)
## Warning: package 'sjPlot' was built under R version 3.5.2
## Warning in checkMatrixPackageVersion(): Package version inconsistency detected.
## TMB was built with Matrix version 1.2.15
## Current Matrix version is 1.2.14
## Please re-install 'TMB' from source using install.packages('TMB', type = 'source') or ask CRAN for a binary version of 'TMB' matching CRAN's 'Matrix' package
plot_frq(crime$Category, coord.flip=T)

plot_frq(crime$Day)

S???p x???p th??? t??? Day b???ng h?m factor:

You can also embed plots, for example:

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