R/nraIndikatorSfinkter.R

In Rapporteket/nra: Resultattjenester for Nasjonalt register for analinkontinens

#' Denne lager en figur som er en sammenstilling av alle kvalitetsindikatorene
#' til NRA ved snm.
#'
#' @inheritParams nraFigAndeler
#'
#' @return En figur med kvalitetsindikatorer med måloppnåelse
#' @export
#'
nraIndikatorSfinkter <- function(outfile='', dekngrad=82, stmark9=41, stmarks12=50, width=7.5, height=4.5){

  plotmatrise <- rev(c(dekngrad, stmark9, stmarks12))
  maalniva <- rev(c('>60%', '>30%', '>50%'))
  maaloppnaaelse <- rev(c(dekngrad>=60, stmark9>=30, stmarks12>=50))
  etiketter <- rev(c('Dekningsgrad',
                     'Andel med St.Marks score mindre enn 9, 1 år etter operasjon',
                     'Andel med St.Marks score mindre enn 12, 1 år etter operasjon'))
  etiketter <- muskel::wrap.it(etiketter, 25)

  FigTypUt <- rapbase::figtype(outfile='', pointsizePDF=11, fargepalett='BlaaOff')
  farger <- FigTypUt$farger
  windows(width = width, height = height)
  oldpar_mar <- par()$mar
  par(mar=c(5.1,10.1,4.1,6.1))

  ypos <- barplot(plotmatrise, horiz = T, col = farger[3], border = F, xlim = c(0,100), xlab = 'Andel (%)')
  points(rep(100,length(ypos[maaloppnaaelse])), ypos[maaloppnaaelse], xpd=T, cex=2, col='green', pch=19)
  points(rep(100,length(ypos[!maaloppnaaelse])), ypos[!maaloppnaaelse], xpd=T, cex=2, col='red', pch=19)

  mtext(etiketter, side=2, line=0.2, las=1, at=ypos, col=1)
  mtext(maalniva , side=4, line=5, las=1, at=ypos, col=1, cex=1, adj = 1)
  mtext('Mål', side=4, line=5, las=1, at=ypos[length(ypos)]+.5*diff(ypos)[1], col=1, cex=1, adj = 1)
  text(plotmatrise, ypos, labels = paste0(plotmatrise, '%'), pos = 4)

  par('mar'= oldpar_mar)
  if (outfile != '') {savePlot(outfile, type=substr(outfile, nchar(outfile)-2, nchar(outfile)))}
  # if (outfile != '') {dev.off()}

}