Deze rapportage gaat over de subsidie-uitkeringen van de Gemeente Purmerend.

library(knitr)
library(dplyr)

subsDF <- read.csv(file = "https://raw.githubusercontent.com/witusj/R-workshop/gh-pages/Datasets/sessie%202/subs_data.csv", stringsAsFactors = TRUE)
glimpse(subsDF)
## Observations: 437
## Variables: 6
## $ X          (int) 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, ...
## $ Instelling (fctr) Stichting Beheer Peuterspeelzaal Pinkeltje, Peuter...
## $ Categorie  (fctr) Educatie, Educatie, Educatie, Educatie, Zorg en We...
## $ Soort      (fctr) Periodiek, Periodiek, Periodiek, Periodiek, Period...
## $ Jaar       (int) 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 201...
## $ Bedrag     (dbl) 82281.89, 76973.47, 72578.17, 134210.39, 16781.45, ...
## Tabel waarde subsidies per jaar per categorie
subsTable <- xtabs(Bedrag ~ Categorie + Jaar, subsDF)
subsDF <- as.data.frame.matrix(subsTable)
subsDF <- round(subsDF, 0)
kable(subsDF, caption = "Tabel 1. Waarde subsidies per jaar per categorie")
Tabel 1. Waarde subsidies per jaar per categorie
2013 2014 2015 2016 2017 2018
Actief in de Stad 7553481 7783490 7518349 5293723 500 500
Amateurkunstbeoefening 75866 73791 5886 1100 0 0
Educatie 1442738 1639653 2781738 1216358 0 0
Wonen 52804 259412 6189 5000 0 0
Zorg en Welzijn 7877812 8726504 15074624 14769259 28824 0 
## Staafdiagram
barplot(subsTable,
        main="Subsidiebedragen per categorie",
        xlab="Jaar",
        ylab="Bedrag",
        col=rainbow(5)
)

legend("topright",
       legend = dimnames(subsTable)$Categorie,
       fill=rainbow(5)
)