OZG-Umsetzung in Schleswig-Holstein

status.R

library('readxl')
library('dplyr')

# Download https://opendata.schleswig-holstein.de/collection/ozg-umsetzung/aktuell.xlsx

d <- read_excel('/tmp/aktuell.xlsx')

d$JiraStatus[is.na(d$JiraStatus)] <- ''

alle <- mutate( d, Ampelfarbe = ifelse( JiraStatus=='Fertig', 'grün',
               ifelse( (JiraStatus=='Backlog' | JiraStatus=='') , 'rot', 
               'gelb'))   )

priorisiert <- alle[which( grepl('^zu digitalisieren', alle$SH_DigitalisierungPrioritätAufzaehlung)),]

status <- aggregate(priorisiert$Schluessel, by=list(priorisiert$Ampelfarbe), FUN=length)
status

barplot( status$x, horiz=TRUE, xlab="Anzahl Leistungen", ylab="Status", col=c('#00cc00','#eeee00','#D4004B'))

# Wie sieht es in den einzelnen Ministerien aus?
aggregate(Schluessel ~ Ampelfarbe + SH_FachverantwortungBehoerdeEbene1, data=priorisiert, FUN=length )

# Wie sieht es bei den Themenfeldern aus?
aggregate(Schluessel ~ Ampelfarbe + Katalog_OZGThemenfeld, data=priorisiert, FUN=length )