---

Criminal offenses

---

Criminal offenses

Tabel 1: Decisions and precautionary measures by age, precautionary measure, type of offence, gender and time

KRXAF_raw <-
  statgl_url("KRXAF", lang = language) %>%
  statgl_fetch(
    "precautionary measure" = px_all(),
    "type of offence"       = px_all(),
    time                    = px_top(1),
    .col_code = TRUE
  ) %>% 
  as_tibble()

KRXAF <- 
  KRXAF_raw %>%
  filter(`type of offence` %in% unique(KRXAF_raw[[2]])[c(1, 2, 39, 49)]) %>% 
  mutate(
    `type of offence` =  `type of offence` %>% fct_inorder(),
   `precautionary measure`  = `precautionary measure`  %>% fct_inorder()
  ) %>% 
  spread(`type of offence`, value)


KRXAF %>% 
  select(-time) %>% 
  rename(" " = 1) %>% 
  statgl_table(replace_0s = TRUE) %>% 
  pack_rows(index = KRXAF[["time"]] %>% table()) %>% 
  row_spec(1, bold = TRUE)

	Total	Criminal Law in total	Traffic Law in total	Special Laws in total
2022
Total	2.160	1.278	458	424
Total incriminating decisions	1.660	879	425	356
Warning	53	47	1	5
Suspended sentence	270	222	8	40
Unsuspended imprisonment	203	159	15	29
Fine	883	229	391	263
Community service	15	14	1	-
Withdrawal of charges	117	93	6	18
Notification of social services (under 15 y/o)	119	115	3	1
Acquittal - Not incriminating	157	137	9	11
Terminated - Not incriminating	343	262	24	57

See the table in our Statbank: KRXAF

Tabel 2: Reported offences by number of reports, type of offence, station and time

KRXAF_raw <-
  statgl_url("KRXAN", lang = language) %>% 
  statgl_fetch(
    "number of reports" = px_all(),
    "type of offence"   = px_all(),
    time                = px_top(3),
    .col_code           = TRUE
  ) %>% 
  as_tibble()


KRXAF <- 
  KRXAF_raw %>% 
  filter(`type of offence` %in% unique(KRXAF_raw[[2]])[c(1, 2, 39, 49)]) %>% 
  arrange(desc(time)) %>% 
  mutate(
    time = time %>% fct_inorder(),
    `type of offence` =  `type of offence` %>% fct_inorder(),
    `number of reports` = `number of reports`  %>% fct_inorder()
  ) %>% 
  spread(`type of offence`, value) %>% 
  arrange(time)


KRXAF %>% 
  select(-time) %>% 
  rename(" " = 1) %>% 
  statgl_table() %>% 
  pack_rows(index = KRXAF[["time"]] %>% table())

	Total	Criminal law in total	Traffic law in total	Special laws in total
2022
Number of reports	5.250	3.610	767	873
Number of reports resulting in charges	3.262	2.019	653	590
Number of reports resulting in decisions	970	446	330	194
2021
Number of reports	5.629	3.920	878	831
Number of reports resulting in charges	3.890	2.526	758	606
Number of reports resulting in decisions	2.003	1.104	496	403
2020
Number of reports	6.030	4.222	1.101	707
Number of reports resulting in charges	4.356	2.792	1.020	544
Number of reports resulting in decisions	3.100	1.822	849	429

See the table in our Statbank: KRXAN

---

Last updated: 06. juni 2023