Barras

# vamos simular duas turmas de alunos

# turma A de 60 alunos onde a média foi 61 e o desvio padrão 12

notasA=rnorm(60,61,12)
notasA
 

# turma B de 55 alunos onde a média foi 53 e o desvio padrão 15

notasB=rnorm(55,53,15)
notasB
 

# considerando que 50 é a nota mínima para ser aprovado, vamos tabular o número de aluno abaixo de 50 e acima de 50, em cada turma

tA=table(findInterval(notasA,50))
tA
 
tB=table(findInterval(notasB, 50))
tB
 

# vamos agora juntar as duas turmas em uma tabela de contingência e transformar para percentagem

tabela=rbind(tA,tB)
tabela=prop.table(tabela,1)*100
tabela
 

# alterar nomes na tabela

colnames(tabela)=c("Reprovado","Aprovado")
rownames(tabela)=c("Turma A", "Turma B")
tabela
 

# criar o gráfico de barras

barplot(tabela, besid=TRUE, legend.text=TRUE, ylab="Frequência percentual (%)")
 
barplot(tabela, besid=TRUE, legend.text=TRUE, ylab="Frequência percentual (%)", col=c(2,3))
 
barplot(tabela, besid=TRUE, horiz=TRUE, legend.text=TRUE, xlab="Frequência percentual (%)", col=c(2,3))
 
barplot(tabela, besid=FALSE, legend.text=TRUE, ylab="Frequência percentual (%)", col=c(2,3))
 

# para mais detalhes da função

?barplot
 

# também podemos fazer

tabela=as.table(tabela)

plot(tabela, main="", xlab="", ylab="Percentual", col=c("red","dark blue"), cex=1.5)