top of page

​Gráfico de barras

Inserindo legendas na figura

Modificando cores

Gráficos de barras

​

Gráficos de barras são gerados com a função barplot()

​

Para os exemplos a seguir, clicar aqui para abrir o banco de dados em formato Excel.

​

table(esaude)

​

barplot(table(esaude))

# Inserindo um título

​

barplot(table(esaude),main="(a) Autoavaliação do estado de saúde")

​

# Mudando as cores das barras

​

barplot(table(esaude),main="(a) Autoavaliação do estado de saúde",col="red")

​

# Cada barra com uma cor diferente

​

barplot(table(esaude),main="(a) Autoavaliação do estado de saúde",col=c("red","yellow","blue"))

​

# Diferentes tons de cinza

​

barplot(table(esaude),main="(a) Autoavaliação do estado de saúde",col=c(gray(0.6),gray(0.4),gray(0.2)))

​# Modificando o tamanho das letras para cada barra

​

barplot(table(esaude),main="(a) Autoavaliação do estado de saúde",cex.names=2)

​

# Inserindo uma legenda para o eixo vertical

​

barplot(table(esaude),main="(a) Autoavaliação do estado de saúde",ylab="Número de pessoas")

​

# Modificando o tamanho das letras da legenda

​

barplot(table(esaude),main="(a) Autoavaliação do estado de saúde",ylab="Número de pessoas",cex.lab=2)

​

# Barras segundo grupos

​

barplot(table(esaude,Tabagismo),main="(a) Autoavaliação do estado de saúde",ylab="Número de pessoas",beside=T)

​

# Mudando a identificação dos grupos

​

barplot(table(esaude,Tabagismo),main="(a) Autoavaliação do estado de saúde",ylab="Número de pessoas",beside=T,names=c("Não fumantes","Fumantes"))

 

# Usando porcentagens

​

tabela <- prop.table(table(esaude,Tabagismo),2)

​

barplot(tabela,main="(a) Autoavaliação do estado de saúde", ylab="Número de pessoas (%)",beside=T, names=c("Não fumantes", "Fumantes"))

​

barplot(100*tabela,main="(a) Autoavaliação do estado de saúde", ylab="Número de pessoas (%)",beside=T, names=c("Não fumantes", "Fumantes"))

 

# Melhorando a estética da figura

 

barplot(100*tabela,main="(a) Autoavaliação do estado de saúde",ylab="Número de pessoas (%)",beside=T, names=c("Não fumantes","Fumantes"),cex.lab=1.3,cex.names=1.3,cex.axis=1.3,las=1)

​

# Inserindo uma legenda

 

barplot(100*tabela,main="(a) Autoavaliação do estado de saúde",ylab="Número de pessoas (%)",beside=T, names=c("Não fumantes","Fumantes"),cex.lab=1.3,cex.names=1.3,cex.axis=1.3,las=1,legend = rownames(tabela))

​

 

# Cores (palettes)

 

barplot(100*tabela,main="(a) Autoavaliação do estado de saúde",ylab="Número de pessoas (%)",beside=T, names=c("Não fumantes","Fumantes"),cex.lab=1.3,cex.names=1.3,cex.axis=1.3,las=1,legend = rownames(tabela),col=rainbow(3))

 

barplot(100*tabela,main="(a) Autoavaliação do estado de saúde",ylab="Número de pessoas (%)",beside=T, names=c("Não fumantes","Fumantes"),cex.lab=1.3,cex.names=1.3,cex.axis=1.3,las=1,legend = rownames(tabela),col=heat.colors(3))

 

# Tente também: terrain.colors, topo.colors e cm.colors

​

# Exemplo com barras horizontais

​

a <- matrix(c(12159,9331,21041,19088),nrow=2)
layout(c(1,1,1,1,2))
par(mar=c(4,4,1,2))
w <- barplot(a,horiz=TRUE,xlab="Casos de neumonía",col=c("blue","red"),
             names=c("menor de\n1 año","1 a 4\naños"),
             cex.lab=1.3, cex.names=1.3, cex.axis=1.3)
text(a[1,2]+a[2,2]/2,w[2],"19.088",font=2,col="white",cex=1.3)
text(a[1,1]+a[2,1]/2,w[1],"9.331",font=2,col="white",cex=1.3)
text(a[1,2]/2,w[2],"21.041",font=2,col="white",cex=1.3)
text(a[1,1]/2,w[1],"12.159",font=2,col="white",cex=1.3)
par(mar=c(0,0,0,0))
plot(1,type="n",axes=F)
legend("center", legend=c("Hombres","Mujeres"), fill=c("blue","red"), box.lty=0, horiz=TRUE, cex=1.2)

barplothor01.jpeg
bottom of page