Gegeven

In 2019-2020 liet Vlaanderen een onderzoek uitvoeren naar het sorteergedrag bij huisvuil. In dit rapport¹ lezen we dat in 2020 elke inwoner uit een stedelijke gemeente gemiddeld 118,15 kg aan de deur plaatste of naar het containerpark bracht.

Onderstaande tabel bevat een benadering van het aantal kg per inwoner per jaar:

Fractie	Aantal kg
GFT	46,26
KGA	0,23
Papier & karton	17,43
Glas	2,14
Houtafval	1,22
PMD	19
Bouwafval	2,75

Gevraagd

• Sla in de variabele restafval op hoeveel kg er nog resteert. Gebruik hierbij de functie sum() en de informatie die je reeds krijgt.
• Voeg deze variabele vervolgens toe aan de vector afval via afval <- c(afval, restafval).
• Maak een gelijkaardig schijfdiagram van deze gegevens.

Tip

Je hoeft niet zelf voor elke categorie een kleur te kiezen, maar je kan het argument col gelijkstellen aan rainbow(length(afval)) om een kleurrijke grafiek te bekomen.