Barras

#GRÁFICO DE BARRA
barplot(table(NOMEDABASEDEDADOS#NOMEDAVARIAVEL), ylab="Frequency",col="red")

contagem = table(CARROS$TipodeMarcha)
nomes = levels(CARROS$TipodeMarcha)
porcent = round(contagem/sum(contagem)*100,2)
rotulo=paste(nomes," (",porcent,"%",")",sep="")

# Construindo as barras
rotulo=paste(" (",porcent,"%",")",sep="")
bp<-barplot(table(CARROS$TipodeMarcha), ylab="Frequência",col=c("red","blue"),main="Gráfico 1")
text(bp, 0, rotulo,cex=1,pos=3)