Gegeven

Elk jaar zijn er heel wat verschillende locaties waar studenten samen kunnen gaan studeren. Sommige studenten blokken beter met mensen om zich heen die ook vlijtig aan het werk zijn.

Blok in de boekentoren.

Blok in de boekentoren.

Gent geeft op zijn Open Data portaal1 een overzicht van het aantal plaatsen en de beschikbaar capaciteit per plaats. De data kan je inlezen via de volgende code.

# Importeert de data van Stad Gent
data <- read.csv2("https://data.stad.gent/api/explore/v2.1/catalog/datasets/bloklocaties-gent/exports/csv",
                  sep = ";",
                  colClasses = c("NULL", "character", rep("NULL", 5), rep("numeric", 2), rep("NULL", 4), "character", rep("NULL", 5)) )
colnames(data) <- c("naam", "capaciteit", "gereserveerd", "status")
data <- data[data$status == "Reserveerbaar" & data$capaciteit != 0, 1:3]
data <- data[order(data$capaciteit, decreasing=TRUE),]
rownames(data) <- seq_len(nrow(data))

Hierbij werden enkel de informatie van de bloklocaties waar je dient te reserveren opgehaald. Een voorsmaakje van deze dataframe bepaal je via head(data).

                                      naam capaciteit gereserveerd
1                   Mediatheek Kantienberg        205           10
2                              Blok@Thermi        200          172
3    Bibliotheek Economie en Bedrijfskunde        160            0
4 Odisee/KU Leuven Campus Gent - Campusbib         50           14
5        Agora Bio-ingenieurswetenschappen         40            2
6         Museum voor Schone Kunsten (MSK)         40           40

Gevraagd

Maak onderstaand staafdiagram met de reserveringsgraad na, gebruik hiervoor de volgende richtlijnen.

Reserveringsgraad blok@Gent

Reserveringsgraad blok@Gent

Reserveringsgraad blok@Gent

Reserveringsgraad blok@Gent