dev.new (res=300)
 
#plots the results side by side by stakeholder group (7 stakeholder groups in this case)
par(mfrow=c(2,4))
 
#code is aligned in blocks for each stakeholder, the first stakeholder in this case is Obstetricians 

#First stakeholder group - Obstetricians 
OB<-c(0,1.1,2.2,1.1,4.3,4.3,17.4,19.6,50.0)
 
OB1<- matrix(OB, 9,1)
names<-list("1", "2", "3", "4", "5", "6", "7", "8", "9")
postplot <- barplot(OB1, beside = TRUE, col = c("green", "green", "green"), cex.names=1,names.arg=names,  ylim=c(0,100),  xlab = "Score", ylab = " % of participants ", main ="\n Obstetricians (n=92)", cex=1.5, axes=FALSE,cex.lab=1.2)
title("\n Outcome: PREVENTION: BLOOD LOSS AFTER BIRTH", outer=TRUE, cex.main = 1.5)
axis(2,las=2, lty=1, bty="u")
 
 
#Second stakeholder group – Neonatologists/Paediatricians
NN<-c(0,0,0,0,0,10.0,20.0,30.0,40.0)
 
NN1<- matrix(NN, 9,1)
names<-list("1", "2", "3", "4", "5", "6", "7", "8", "9")
postplot <- barplot(NN1, beside = TRUE, col = c("red", "red", "red"), cex.names=1,names.arg=names,  ylim=c(0,100),  xlab = "Score", ylab = "% of participants ", main ="\n Neonatologists (n=10)", cex=1.5, axes=FALSE, cex.lab=1.2)
axis(2,las=2, lty=1, bty="u")
 
 
#Third stakeholder group – Haematologists
HM<-c(0,10.0,10.0,0,0,10.0,0,20.0,50.0)
 
HM1<- matrix(HM, 9,1)
names<-list("1", "2", "3", "4", "5", "6", "7", "8", "9")
postplot <- barplot(HM1, beside = TRUE, col = c("blue", "blue", "blue"), cex.names=1,names.arg=names,  ylim=c(0,100),  xlab = "Score", ylab = "% of participants ", main ="\n Haematologists (n=10)", cex=1.5, axes=FALSE, cex.lab=1.2)
axis(2,las=2, lty=1, bty="u")
 
#Fourth stakeholder group –Anaesthetists
AN<-c(0,0,0,0,7.1,14.3,42.9,7.1,28.6)
 
AN1<- matrix(AN, 9,1)
names<-list("1", "2", "3", "4", "5", "6", "7", "8", "9")
postplot <- barplot(AN1, beside = TRUE, col = c("purple", "purple", "purple"), cex.names=1,names.arg=names,  ylim=c(0,100),  xlab = "Score", ylab = " % of participants ", main ="\n Anaesthetists (n=14)", cex=1.5, axes=FALSE, cex.lab=1.2)
axis(2,las=2, lty=1, bty="u")
 
#Fifth stakeholder group – Midwives
MW<-c(0,0,0,0,0,3.6,25.0,10.7,60.7)
 
MW1<- matrix(MW, 9,1)
names<-list("1", "2", "3", "4", "5", "6", "7", "8", "9")
postplot <- barplot(MW1, beside = TRUE, col = c("cyan", "cyan", "cyan"), cex.names=1,names.arg=names,  ylim=c(0,100),  xlab = "Score", ylab = "% of participants ", main ="\n Midwives (n=28)", cex=1.5, axes=FALSE, cex.lab=1.2)
axis(2,las=2, lty=1, bty="u")
 
#Sixth stakeholder group – Patient Representatives
PR<-c(3.4,0,0,0,3.4,6.9,34.5,10.3,41.4)
 
PR1<- matrix(PR, 9,1)
names<-list("1", "2", "3", "4", "5", "6", "7", "8", "9")
postplot <- barplot(PR1, beside = TRUE, col = c("orange", "orange", "orange"), cex.names=1,names.arg=names,  ylim=c(0,100),  xlab = "Score", ylab = " % of participants ", main ="\n Patient Representatives (n=29)", cex=1.5, axes=FALSE, cex.lab=1.2)
axis(2,las=2, lty=1, bty="u")

#Seventh stakeholder group – Policy Makers/Health strategists
PM<-c(0,0,0,4.8,4.8,4.8,33.3,19.0,33.3)
 
PM1<- matrix(PM, 9,1)
names<-list("1", "2", "3", "4", "5", "6", "7", "8", "9")
postplot <- barplot(PM1, beside = TRUE, col = c("yellow", "yellow", "yellow"), cex.names=1,names.arg=names,  ylim=c(0,100),  xlab = "Score", ylab = " % of participants ", main ="\n Policy Makers (n=21)", cex=1.5, axes=FALSE, cex.lab=1.2)
axis(2,las=2, lty=1, bty="u")