Gegeven

Via het Open Data Portaal1 van Stad Gent kan men de criminaliteitscijfers van 2023, per maand, per wijk opvragen.

De volgende code vraagt deze aantallen op.

# Benodigde bibliotheken
library('jsonlite')
library('httr')

# Importeert de data van Stad Gent en vormt om
res <- GET("https://data.stad.gent/api/explore/v2.1/catalog/datasets/criminaliteitscijfers-per-wijk-per-maand-gent-2023/records?select=sum(total)&group_by=fact_category")
data <- fromJSON(rawToChar(res$content))$results
colnames(data) <- c("categorie","aantal")

Het resultaat is een dataframe, met per categorie, het aantal incidenten.

                         categorie aantal
1                     Autodiefstal     59
2            Beschadiging aan auto    639
3                Bromfietsdiefstal    172
4          Diefstal gewapenderhand     56
5 Diefstal met geweld zonder wapen    330
6   Diefstal uit of aan voertuigen    759

Gevraagd

Maak onderstaand taartdiagram met de criminaliteitscijfers per categorie, gebruik hiervoor de volgende richtlijnen.

Criminaliteit in Gent

Criminaliteit in Gent.

Criminaliteit in Gent.

Criminaliteit in Gent.