barplot.R

#dev.new()
#par(mar=c(4,4,2,1)+0.1, cex = 1.4)

prevalencia <- c(58.62, 64.81, 41.38, 35.19, 55.56, 63.51, 44.44, 36.49)
graf = barplot(prevalencia, ylim = c(0,100), space = c(1,0,1,0,1,0,1,0), 
               ylab = "Prevalência de aleitamento materno (%)",
        col=c("darkblue","red3","darkblue","red3","blue1","red1","blue1","red1"))
text(graf, prevalencia, pos = 3,
     labels = c(58.6, 64.8, 41.4, 35.2, 55.6, 63.5, 44.4, 36.5))

legend(7.4, 100, pch = c(15, 15), bty = "n", cex = 0.8, y.intersp = 0.7,
       c("Presença de sintomas de depressão", 
         "Ausencia de sintomas de depressão", 
         "Presença de sintomas de ansiedade", 
         "Ausencia de sintomas de ansiedade"), 
       col=c("darkblue","red3","blue1","red1"))

#dev.off()